2 |
## $Id$ |
## $Id$ |
3 |
## ---------------------------------------------------------------------- |
## ---------------------------------------------------------------------- |
4 |
## $Log$ |
## $Log$ |
5 |
|
## Revision 1.6 2003/03/29 07:10:42 joko |
6 |
|
## + sub _script: |
7 |
|
## new rap-command: '<script language="msdos/bat|bash|...">...</script>' |
8 |
|
## |
9 |
|
## Revision 1.5 2003/03/27 15:31:04 joko |
10 |
|
## fixes to modules regarding new namespace(s) below Data::Mungle::* |
11 |
|
## |
12 |
## Revision 1.4 2003/02/22 16:48:58 joko |
## Revision 1.4 2003/02/22 16:48:58 joko |
13 |
## modified rapcall behaviour |
## modified rapcall behaviour |
14 |
## |
## |
40 |
use Hash::Merge qw( merge ); |
use Hash::Merge qw( merge ); |
41 |
|
|
42 |
use DesignPattern::Object; |
use DesignPattern::Object; |
43 |
use Data::Transform::Deep qw( merge_to ); |
use Data::Mungle::Transform::Deep qw( merge_to ); |
44 |
use shortcuts qw( run_cmd ); |
use shortcuts qw( run_cmd ); |
45 |
|
|
46 |
|
|
277 |
$self->setInstance($self->{$name}) if $args->{type} eq 'instance'; |
$self->setInstance($self->{$name}) if $args->{type} eq 'instance'; |
278 |
} |
} |
279 |
|
|
280 |
|
sub _script { |
281 |
|
my $self = shift; |
282 |
|
my $args = shift; |
283 |
|
my $content = shift; |
284 |
|
|
285 |
|
# trace |
286 |
|
#print Dumper($args); |
287 |
|
#print Dumper($content); |
288 |
|
|
289 |
|
my $code = $content->[0]->{content}; |
290 |
|
$code ||= ''; |
291 |
|
|
292 |
|
$self->run_script($args, $code); |
293 |
|
|
294 |
|
} |
295 |
|
|
296 |
1; |
1; |
297 |
__END__ |
__END__ |