2 |
## $Id$ |
## $Id$ |
3 |
## ---------------------------------------------------------------------- |
## ---------------------------------------------------------------------- |
4 |
## $Log$ |
## $Log$ |
5 |
|
## Revision 1.5 2003/03/27 15:31:04 joko |
6 |
|
## fixes to modules regarding new namespace(s) below Data::Mungle::* |
7 |
|
## |
8 |
|
## Revision 1.4 2003/02/22 16:48:58 joko |
9 |
|
## modified rapcall behaviour |
10 |
|
## |
11 |
|
## Revision 1.3 2003/02/21 07:39:13 joko |
12 |
|
## modified 'rapcall' processing |
13 |
|
## modified merging of options/arguments in there |
14 |
|
## |
15 |
## Revision 1.2 2003/02/20 19:37:09 joko |
## Revision 1.2 2003/02/20 19:37:09 joko |
16 |
## renamed modules |
## renamed modules |
17 |
## - removed command 'exec' |
## - removed command 'exec' |
36 |
use Hash::Merge qw( merge ); |
use Hash::Merge qw( merge ); |
37 |
|
|
38 |
use DesignPattern::Object; |
use DesignPattern::Object; |
39 |
use Data::Transform::Deep qw( merge_to ); |
use Data::Mungle::Transform::Deep qw( merge_to ); |
40 |
use shortcuts qw( run_cmd ); |
use shortcuts qw( run_cmd ); |
41 |
|
|
42 |
|
|
220 |
my $args = shift; |
my $args = shift; |
221 |
|
|
222 |
if (my $container = $self->getContainer()) { |
if (my $container = $self->getContainer()) { |
223 |
my $opts = merge($container, $args); |
#my $opts = merge($container, $args); |
224 |
if ($opts->{executable}) { |
#print Dumper($container); |
225 |
$self->run_executable($opts); |
merge_to($args, $container, { init => 1 }); |
226 |
} |
} |
227 |
|
|
228 |
|
# trace |
229 |
|
#print Dumper($args); |
230 |
|
|
231 |
#print Dumper($opts); |
if ($args->{executable}) { |
232 |
|
$self->run_executable($args); |
233 |
return; |
return; |
234 |
} |
} |
235 |
|
|
236 |
if (my $command = $args->{command}) { |
if (my $command = $args->{command}) { |
237 |
$self->perform_command($command, $args); |
$self->perform_command($command, $args); |
238 |
|
return; |
239 |
} |
} |
240 |
|
|
241 |
if (my $target = $args->{target}) { |
if (my $target = $args->{target}) { |
242 |
$self->performTarget($target, $args); |
$self->performTarget($target, $args); |
243 |
|
return; |
244 |
} |
} |
245 |
|
|
246 |
if (my $method = $args->{method}) { |
if (my $method = $args->{method}) { |
254 |
} elsif (my $ref = $self->getInstance()) { |
} elsif (my $ref = $self->getInstance()) { |
255 |
$ref->$method(); |
$ref->$method(); |
256 |
} |
} |
257 |
|
|
258 |
|
return; |
259 |
|
|
260 |
} |
} |
261 |
|
|
262 |
} |
} |