/[cvs]/nfo/perl/libs/Data/Rap/Command.pm
ViewVC logotype

Diff of /nfo/perl/libs/Data/Rap/Command.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by joko, Thu Mar 27 15:31:04 2003 UTC revision 1.6 by joko, Sat Mar 29 07:10:42 2003 UTC
# Line 2  Line 2 
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  ##  Revision 1.5  2003/03/27 15:31:04  joko
10  ##  fixes to modules regarding new namespace(s) below Data::Mungle::*  ##  fixes to modules regarding new namespace(s) below Data::Mungle::*
11  ##  ##
# Line 273  sub _use { Line 277  sub _use {
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__
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed