1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
package Catalyst::Helper::PSGI;
use strict;
use warnings;
use File::Spec;
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.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
=head1 DESCRIPTION
This helper module creates a C<myapp.psgi> application script so you
can run your Catalyst with PSGI servers using L<plackup> or L<Plack::Loader>.
=head1 AUTHOR
Tatsuhiko Miyagawa
=head1 SEE ALSO
L<Catalyst::Engine::PSGI>
=cut
1;
__DATA__
__psgi_app__
#!/usr/bin/env perl
use strict;
use warnings;
use [% app %];
[% app %]->setup_engine('PSGI');
my $app = sub { [% app %]->run(@_) };
|
