Changeset 926

Timestamp:

10/30/07 22:21:52 (6 years ago)

Author:

typester

Message:

perl/irssi/scripts/mobirc.pl: refactored, うざい重複コードを削りまくり

Files:

• lang/perl/irssi/scripts/mobirc.pl (modified) (12 diffs)

lang/perl/irssi/scripts/mobirc.pl

@@ -45 +45 @@
 
     irssi_signals => {
-        map( { ( "message $_" => __PACKAGE__->can("irssi_$_") ) }
+        map( { ( "message $_" => bind_signal("irssi_$_") ) }
             qw/public private own_public own_private join part quit kick nick own_nick invite topic/
         ),
-        map( { ( "message irc $_" => __PACKAGE__->can("irssi_irc_$_") ) }
+        map( { ( "message irc $_" => bind_signal("irssi_irc_$_") ) }
             qw/op_public own_wall own_action action own_notice notice own_ctcp ctcp/
         ),
@@ -58 +58 @@
 sub nick_name {
     Irssi::active_server->{nick};
+}
+
+sub bind_signal {
+    my $sub = __PACKAGE__->can(shift) or return;
+
+    return sub {
+        return unless $_[KERNEL]->alias_resolve('mobirc_httpd');
+        $sub->(@_);
+    };
 }
 
@@ -128 +137 @@
     my ($server, $msg, $nick, $address, $target) = @{ $poe->args->[1] };
 
-    return unless $poe->kernel->alias_resolve('mobirc_httpd');
-
     add_message( $poe, $target, $nick, $msg, 'public' );
 }
@@ -139 +146 @@
     my ($server, $msg, $target) = @{ $poe->args->[1] };
 
-    return unless $poe->kernel->alias_resolve('mobirc_httpd');
-
     add_message( $poe, $target, $server->{nick}, $msg, 'public' );
 }
@@ -148 +153 @@
     my $poe = sweet_args;
     my ($server, $channel, $nick, $address) = @{ $poe->args->[1] };
-
-    return unless $poe->kernel->alias_resolve('mobirc_httpd');
 
     my $irc = $poe->kernel->alias_resolve('irc_session')->get_heap;
@@ -165 +168 @@
     my $poe = sweet_args;
     my ($server, $channel, $nick, $address, $reason) = @{ $poe->args->[1] };
-
-    return unless $poe->kernel->alias_resolve('mobirc_httpd');
 
     my $irc = $poe->kernel->alias_resolve('irc_session')->get_heap;
@@ -189 +190 @@
     my ($server, $channel, $topic, $nick, $address) = @{ $poe->args->[1] };
 
-    return unless $poe->kernel->alias_resolve('mobirc_httpd');
-
     my $irc = $poe->kernel->alias_resolve('irc_session')->get_heap;
 
@@ -204 +203 @@
     my ($server, $msg, $target) = @{ $poe->args->[1] };
 
-    return unless $poe->kernel->alias_resolve('mobirc_httpd');
-
     my $irc = $poe->kernel->alias_resolve('irc_session')->get_heap;
 
@@ -216 +213 @@
     my ($server, $msg, $nick, $address, $target) = @{ $poe->args->[1] };
 
-    return unless $poe->kernel->alias_resolve('mobirc_httpd');
-
     my $irc = $poe->kernel->alias_resolve('irc_session')->get_heap;
 
@@ -228 +223 @@
     my ($server, $msg, $target) = @{ $poe->args->[1] };
 
-    return unless $poe->kernel->alias_resolve('mobirc_httpd');
-
     my $irc = $poe->kernel->alias_resolve('irc_session')->get_heap;
 
@@ -238 +231 @@
     my $poe = sweet_args;
     my ($server, $msg, $nick, $address, $target) = @{ $poe->args->[1] };
-
-    return unless $poe->kernel->alias_resolve('mobirc_httpd');
 
     my $irc = $poe->kernel->alias_resolve('irc_session')->get_heap;
@@ -250 +241 @@
     my ($server, $msg, $nick, $address, $target) = @{ $poe->args->[1] };
     return unless $msg =~ /^\d/; # messages only
-
-    return unless $poe->kernel->alias_resolve('mobirc_httpd');
 
     my $irc = $poe->kernel->alias_resolve('irc_session')->get_heap;