view release on metacpan or  search on metacpan

lib/Contenticious/Generator.pm  view on Meta::CPAN

    # determine path
    my $target = catfile $self->working_directory, $filename;

    # create directory if neccessary
    my $target_dir = dirname $target;
    make_path $target_dir unless -d $target_dir;

    # dump file
    copy $source => $target;

    # chmod executable if neccessary
    chmod oct(755) => $target if $self->is_executable($filename);
}

1;

__END__

=head1 NAME

Contenticious::Generator - generates contenticious boilerplate