Changeset 11745 for lang/perl/XIRCD

Timestamp:

05/17/08 16:52:21 (5 years ago)

Author:

kan

Message:

make XIRCD::Role

Location:

lang/perl/XIRCD/trunk/lib

Files:

• XIRCD.pm (modified) (1 diff)
• XIRCD/Component.pm (modified) (2 diffs)
• XIRCD/Component/Time.pm (modified) (1 diff)
• XIRCD/Role.pm (added)

lang/perl/XIRCD/trunk/lib/XIRCD.pm

@@ -19 +19 @@
 
     for my $component ( @{$config->{components}} ) {
-        my $module = $component->{module};
+        my $module = 'XIRCD::Component::' . $component->{module};
         $module->require;
-        $module->new( config => $component );
+        $module->new( 
+            name    => lc($component->{module}),
+            channel => '#' . lc($component->{module}),
+            %{$component} 
+        );
+        warn "load $module";
     }
 

lang/perl/XIRCD/trunk/lib/XIRCD/Component.pm

@@ -6 +6 @@
 
 use Sub::Exporter -setup => {
-    exports => [qw(self debug get_args http_alias)],
+    exports => [qw(self debug get_args http_alias yield delay post publish_message publish_notice)],
     groups  => { 
         default => [ -all ], 
@@ -24 +24 @@
 }
 
+sub yield (@) { ## no critic.
+    POE::Kernel->yield(@_);
+}
+
+sub delay (@) { ## no critic.
+    POE::Kernel->delay(@_);
+}
+
+sub post (@) { ## no critic.
+    POE::Kernel->post(@_);
+}
+
+sub publish_message ($$) {  ## no critic.
+    my $self = (caller_args(1))[0];
+    my ($nick, $text) = @_;
+
+    post ircd => 'publish_message' => $nick, $self->channel, $text;
+}
+
+sub publish_notice ($) {  ## no critic.
+    my $self = (caller_args(1))[0];
+    my ($text,) = @_;
+
+    post ircd => 'publish_notice' => $self->channel, $text;
+}
+
 
 1;

lang/perl/XIRCD/trunk/lib/XIRCD/Component/Time.pm

@@ -3 +3 @@
 use XIRCD::Component;
 
-with qw(MooseX::POE::Aliased);
+with qw(XIRCD::Role);
+
+has 'nick' => ( isa => 'Str', io => 'rw' );
 
 use DateTime;
 
-has 'config' => (
-    isa => 'HashRef',
-    is  => 'rw',
-);
-
-has 'date' => (
-    isa     => 'DateTime',
-    is      => 'ro',
-    default => sub { DateTime->now( time_zone => 'Asia/Tokyo' ) },
-);
-
-sub START {
-    self->alias('time');
-
-    debug 'start time';
-
-    POE::Kernel->post( ircd => 'join_channel', self->config->{channel} );
-    self->yield('timecall');
-}
-
-event timecall => sub {
-    debug "timecall";
-
-    POE::Kernel->post(
-        ircd => 'publish_message' => 'time',
-        self->config->{channel}, self->date->strftime("%Y/%m/%d %H:%M:%S")
-    );
-    POE::Kernel->delay( 'timecall', 10 );
+event start => sub {
+    my $date = DateTime->now(time_zone => 'Asia/Tokyo');
+    publish_message self->nick => $date->strftime("%Y/%m/%d %H:%M:%S");
+    delay 'start', 10;
 };