view release on metacpan or  search on metacpan

lib/Catalyst/Helper/SCGI.pm  view on Meta::CPAN

=cut

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

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

    $helper->render_file( "scgi_script",
        File::Spec->catfile( $base, 'script', "$app\_scgi.pl" ) );
    chmod 0700, "$base/script/$app\_scgi.pl";
}

=head1 AUTHOR

Orlando Vazquez, C< <orlando at 2wycked.net> >

=head1 BUGS

Please report any bugs or feature requests to
C<orlando at 2wycked.net>