Changeset 12458

Timestamp:

05/26/08 21:41:03 (5 years ago)

Author:

tokuhirom

Message:

refactoring

Files:

• lang/perl/mobirc/trunk/lib/App/Mobirc/HTTPD/Template/PC.pm (modified) (1 diff)

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

@@ -11 +11 @@
 
     div {
-        if ($keyword_recent_num > 0) {
-            div { attr { class => 'keyword_recent_notice' }
-                a { attr { href => '#' }
-                    "Keyword($keyword_recent_num)"
-                }
-            };
-        }
-
-        for my $channel ( $server->channels ) {
-            my $class = $channel->unread_lines ? 'unread channel' : 'channel';
-            div { attr { class => $class }
-                a { attr { 'href' => '#' }
-                    $channel->name
-                }
-            }
-        }
+        show 'keyword_channel', $keyword_recent_num;
+        show 'channel_list', $server;
     };
 };
 
+template 'keyword_channel' => sub {
+    my ($self, $keyword_recent_num) = validate_pos(@_, OBJECT, SCALAR);
+
+    if ($keyword_recent_num > 0) {
+        div { attr { class => 'keyword_recent_notice' }
+            a { attr { href => '#' }
+                "Keyword($keyword_recent_num)"
+            }
+        };
+    }
+};
+
+template 'channel_list' => sub {
+    my ($self, $server) = validate_pos(@_, OBJECT, { 'isa' => 'App::Mobirc::Model::Server' });
+
+    for my $channel ( $server->channels ) {
+        my $class = $channel->unread_lines ? 'unread channel' : 'channel';
+        div { attr { class => $class }
+            a { attr { 'href' => '#' }
+                $channel->name
+            }
+        }
+    }
+};
+
 1;