view release on metacpan or  search on metacpan

lib/Catalyst/Helper/HTML/FormHandler/Scripts.pm  view on Meta::CPAN

sub mk_stuff {
    my ($self, $helper, $args) = @_;

    my $base = $helper->{base};
    my $app  = lc $helper->{app};

    $app =~ s/::/_/g;

    my $script = File::Spec->catfile($base, 'script', $app.'_hfh.pl');
    $helper->render_file('hfh', $script);
    chmod 0755, $script;
}


1;




=pod