Changeset 11184 for lang/perl/Punc/trunk

Timestamp:

05/06/08 04:25:12 (7 months ago)

Author:

mizzy

Message:

Fileモジュールを利用して、モジュールを同期させるスクリプトをつくった

Location:

lang/perl/Punc/trunk

Files:

• bin/punc-modulesync (added)
• lib/Punc/Slave/Module/File.pm (modified) (2 diffs)
• lib/Punc/Slave/Module/Punc.pm (added)

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

@@ -3 +3 @@
 use strict;
 use warnings;
-
+use Path::Class qw( dir file );
 use Punc::Slave::Module { operatingsystem => [ qw/ .* / ] };
 
@@ -13 +13 @@
 sub copy {
     my ( $self, $args ) = @_;
-    my $dest = $args->{dest} || $args->{src};
-    open my $fh, '>', $dest or die $!;
+    my $dest_file = $args->{dest} || $args->{src};
+    my $dest_dir  = dir($dest_file)->parent;
+    $dest_dir->mkpath unless -d $dest_dir;
+
+    open my $fh, '>', $dest_file or die $!;
     print $fh $args->{content};
     close $fh;
+
     return;
 }