view release on metacpan or  search on metacpan

lib/Catalyst/Helper/DBIC/DeploymentHandler.pm  view on Meta::CPAN

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

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

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

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


1;




=pod