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