view release on metacpan or  search on metacpan

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

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

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

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

    my $script = File::Spec->catfile($base, 'script', "$app.psgi");

    $helper->render_file('psgi_app', $script);
    chmod 0755, $script;
}

=head1 NAME

Catalyst::Helper::PSGI - PSGI helper to create a .psgi application script

=head1 SYNOPSIS

  > script/myapp_create.pl PSGI