view release on metacpan or  search on metacpan

lib/CatalystX/Crudite/Util.pm  view on Meta::CPAN

            mkpath($path) unless $args{dryrun};
        }
        if (my $original = $result{$filename}{copy}) {
            $log->("copy -> $filename");
            unless ($args{dryrun}) {
                copy($original, $filename) or die "copy failed: $!";
            }
        } elsif (my $content = $result{$filename}{write}) {
            $log->("template -> $filename");
            write_file($filename, $content) unless $args{dryrun};
            chmod 0755, $filename if $filename =~ /\.(pl|sh)$/;
        }
    }
    $log->('Finished.');
}
1;