Changeset 12456

Timestamp:

05/26/08 21:32:51 (5 years ago)

Author:

tokuhirom

Message:

use private.

Files:

• lang/perl/mobirc/trunk/lib/App/Mobirc/HTTPD/Template/IRCMessage.pm (modified) (3 diffs)

lang/perl/mobirc/trunk/lib/App/Mobirc/HTTPD/Template/IRCMessage.pm

@@ -11 +11 @@
     my ($self, $message, $my_nick) = validate_pos(@_, OBJECT, { isa => 'App::Mobirc::Model::Message' }, SCALAR);
 
-    show '_irc_time', $message->time;
+    show 'irc_time', $message->time;
     if ($message->who) {
-        show '_irc_who',  $message->who, $my_nick;
+        show 'irc_who',  $message->who, $my_nick;
     }
-    show '_irc_body', $message->class, $message->body;
+    show 'irc_body', $message->class, $message->body;
 };
 
 # render time likes: 12:25
-template '_irc_time' => sub {
+private template 'irc_time' => sub {
     my ( $self, $time ) = validate_pos( @_, OBJECT, SCALAR );
     my ( $sec, $min, $hour ) = localtime($time);
@@ -36 +36 @@
 };
 
-template '_irc_who' => sub {
+private template 'irc_who' => sub {
     my ( $self, $who, $my_nick ) = validate_pos( @_, OBJECT, SCALAR, SCALAR );
 
@@ -79 +79 @@
 };
 
-template '_irc_body' => sub {
+private template 'irc_body' => sub {
     my ( $self, $class, $body ) = validate_pos( @_, OBJECT, SCALAR, SCALAR );