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 |
## Revision 1.8 2004/06/07 16:45:56 joko |
9 |
## now propagates args to "rapcall method" |
## now propagates args to "rapcall method" |
10 |
## |
## |
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 { |