Changeset 11216 for lang/perl/Punc

Timestamp:

05/06/08 20:54:29 (7 months ago)

Author:

mizzy

Message:

Punc::Slave::Module の exec メソッドは不要だった

Location:

lang/perl/Punc/trunk/lib/Punc/Slave

Files:

• Daemon.pm (modified) (1 diff)
• Module.pm (modified) (1 diff)

lang/perl/Punc/trunk/lib/Punc/Slave/Daemon.pm

@@ -103 +103 @@
         my $module_to_delegate = $obj->delegate;
         if ( $module_to_delegate ) {
-            $res = $module_to_delegate->exec($method, $args);
+            $res = $module_to_delegate->$method($args);
         }
         else {

lang/perl/Punc/trunk/lib/Punc/Slave/Module.pm

@@ -49 +49 @@
 }
 
-sub exec {
-    my ( $self, $method, $args ) = @_;
-    $self->$method($args);
-}
-
 sub description {
     my $class = shift;