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 |
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 { |
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 { |