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