Changeset 11181 for lang/perl/Punc

Show
Ignore:
Timestamp:
05/06/08 02:27:31 (7 months ago)
Author:
mizzy
Message:

ファイル操作用モジュールをつくってみた
ホスト管理機能を追加してたけど、add 忘れてた

Location:
lang/perl/Punc/trunk/lib/Punc
Files:
4 added
2 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/Punc/trunk/lib/Punc/Client/Request.pm

    r11152 r11181  
    6262    $self->{args}   = $args; 
    6363 
     64    if ( $self->{module} eq 'file' and $self->{method} eq 'copy' ) { 
     65        open my $fh, '<', $args->{src} or die $!; 
     66        $args->{content} = do { local $/; <$fh> }; 
     67        close $fh; 
     68    } 
     69 
    6470    return $self->request; 
    6571} 

  • lang/perl/Punc/trunk/lib/Punc/Slave/Module.pm

    r11102 r11181  
    2828 
    2929    $self->search_path( new => ref $self ); 
    30     my @modules = $self->plugins; 
     30    my @modules = ( $self->plugins, ref $self ); 
    3131    my $module_to_delegate; 
    3232    for my $module ( @modules ) {