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 |
## Revision 1.3 2003/02/21 07:39:13 joko |
12 |
## modified 'rapcall' processing |
## modified 'rapcall' processing |
13 |
## modified merging of options/arguments in there |
## modified merging of options/arguments in there |
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 |
|
|
221 |
|
|
222 |
if (my $container = $self->getContainer()) { |
if (my $container = $self->getContainer()) { |
223 |
#my $opts = merge($container, $args); |
#my $opts = merge($container, $args); |
224 |
#print Dumper($opts); |
#print Dumper($container); |
225 |
merge_to($args, $container); |
merge_to($args, $container, { init => 1 }); |
226 |
} |
} |
227 |
|
|
228 |
#print Dumper($args); |
# trace |
229 |
|
#print Dumper($args); |
230 |
|
|
231 |
|
if ($args->{executable}) { |
232 |
|
$self->run_executable($args); |
233 |
|
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); |
258 |
return; |
return; |
259 |
|
|
260 |
} |
} |
|
|
|
|
if ($args->{executable}) { |
|
|
$self->run_executable($args); |
|
|
return; |
|
|
} |
|
|
|
|
261 |
|
|
262 |
} |
} |
263 |
|
|