/[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.10 by joko, Sun Jun 20 16:10:05 2004 UTC
# Line 2  Line 2 
2  ##  $Id$  ##  $Id$
3  ## ----------------------------------------------------------------------  ## ----------------------------------------------------------------------
4  ##  $Log$  ##  $Log$
5    ##  Revision 1.10  2004/06/20 16:10:05  joko
6    ##  modification to _rapcall: now has "service" to cache target details
7    ##
8    ##  Revision 1.9  2004/06/19 01:50:24  joko
9    ##  disabled debugging statement
10    ##
11    ##  Revision 1.8  2004/06/07 16:45:56  joko
12    ##  now propagates args to "rapcall method"
13    ##
14  ##  Revision 1.7  2003/05/13 07:52:14  joko  ##  Revision 1.7  2003/05/13 07:52:14  joko
15  ##  enhanced: *hierarchical* containers for context handling  ##  enhanced: *hierarchical* containers for context handling
16  ##  making methods from foreign context(s) available  ##  making methods from foreign context(s) available
# Line 233  sub _plugin { Line 242  sub _plugin {
242            # check for existance of method            # check for existance of method
243            if ($container->can($_)) {            if ($container->can($_)) {
244              # dispatch call by being with or without arguments              # dispatch call by being with or without arguments
245              print "method_args: ", Dumper($method_args);              #print "method_args: ", Dumper($method_args);
246              if ($method_args) {              if ($method_args) {
247                $container->$_(@$method_args);                $container->$_(@$method_args);
248              } else {              } else {
# Line 306  sub _rapcall { Line 315  sub _rapcall {
315        # V1 - no arguments were being propagated        # V1 - no arguments were being propagated
316        #$self->{$refkey}->$method();        #$self->{$refkey}->$method();
317        # V2 - trying this....        # V2 - trying this....
318        $self->{$refkey}->$method();        $self->{$refkey}->$method($args->{args});
319    
320      } elsif (my $ref = $self->getInstance()) {      } elsif (my $ref = $self->getInstance()) {
321        $ref->$method();        $ref->$method($args->{args});
322      }      }
323            
324      return;      return;
325    
326    }    }
327    
328      if (my $service = $args->{service}) {
329        if ($service eq 'indexTargets') {
330          $self->indexTargets({ build => 1 });
331        }
332        
333      }
334    
335  }  }
336    
337  sub _exit {  sub _exit {
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.10
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed