/[cvs]/nfo/perl/libs/Data/Rap/Command.pm
ViewVC logotype

Diff of /nfo/perl/libs/Data/Rap/Command.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by joko, Tue May 13 07:52:14 2003 UTC revision 1.9 by joko, Sat Jun 19 01:50:24 2004 UTC
# Line 2  Line 2 
2  ##  $Id$  ##  $Id$
3  ## ----------------------------------------------------------------------  ## ----------------------------------------------------------------------
4  ##  $Log$  ##  $Log$
5    ##  Revision 1.9  2004/06/19 01:50:24  joko
6    ##  disabled debugging statement
7    ##
8    ##  Revision 1.8  2004/06/07 16:45:56  joko
9    ##  now propagates args to "rapcall method"
10    ##
11  ##  Revision 1.7  2003/05/13 07:52:14  joko  ##  Revision 1.7  2003/05/13 07:52:14  joko
12  ##  enhanced: *hierarchical* containers for context handling  ##  enhanced: *hierarchical* containers for context handling
13  ##  making methods from foreign context(s) available  ##  making methods from foreign context(s) available
# Line 233  sub _plugin { Line 239  sub _plugin {
239            # check for existance of method            # check for existance of method
240            if ($container->can($_)) {            if ($container->can($_)) {
241              # dispatch call by being with or without arguments              # dispatch call by being with or without arguments
242              print "method_args: ", Dumper($method_args);              #print "method_args: ", Dumper($method_args);
243              if ($method_args) {              if ($method_args) {
244                $container->$_(@$method_args);                $container->$_(@$method_args);
245              } else {              } else {
# Line 306  sub _rapcall { Line 312  sub _rapcall {
312        # V1 - no arguments were being propagated        # V1 - no arguments were being propagated
313        #$self->{$refkey}->$method();        #$self->{$refkey}->$method();
314        # V2 - trying this....        # V2 - trying this....
315        $self->{$refkey}->$method();        $self->{$refkey}->$method($args->{args});
316    
317      } elsif (my $ref = $self->getInstance()) {      } elsif (my $ref = $self->getInstance()) {
318        $ref->$method();        $ref->$method($args->{args});
319      }      }
320            
321      return;      return;
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.9
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed