--- nfo/perl/libs/Data/Rap/Command.pm	2003/02/22 16:48:58	1.4
+++ nfo/perl/libs/Data/Rap/Command.pm	2003/03/29 07:10:42	1.6
@@ -1,7 +1,14 @@
 ## ----------------------------------------------------------------------
-##  $Id: Command.pm,v 1.4 2003/02/22 16:48:58 joko Exp $
+##  $Id: Command.pm,v 1.6 2003/03/29 07:10:42 joko Exp $
 ## ----------------------------------------------------------------------
 ##  $Log: Command.pm,v $
+##  Revision 1.6  2003/03/29 07:10:42  joko
+##  + sub _script:
+##    new rap-command: '<script language="msdos/bat|bash|...">...</script>'
+##
+##  Revision 1.5  2003/03/27 15:31:04  joko
+##  fixes to modules regarding new namespace(s) below Data::Mungle::*
+##
 ##  Revision 1.4  2003/02/22 16:48:58  joko
 ##  modified rapcall behaviour
 ##
@@ -33,7 +40,7 @@
 use Hash::Merge qw( merge );
 
 use DesignPattern::Object;
-use Data::Transform::Deep qw( merge_to );
+use Data::Mungle::Transform::Deep qw( merge_to );
 use shortcuts qw( run_cmd );
 
 
@@ -270,6 +277,21 @@
   $self->setInstance($self->{$name}) if $args->{type} eq 'instance';
 }
 
+sub _script {
+  my $self = shift;
+  my $args = shift;
+  my $content = shift;
+  
+  # trace
+  #print Dumper($args);
+  #print Dumper($content);
+
+  my $code = $content->[0]->{content};
+  $code ||= '';
+
+  $self->run_script($args, $code);
+  
+}
 
 1;
 __END__