File: Plackup.pm

package info (click to toggle)
libfcgi-engine-perl 0.22-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 360 kB
  • sloc: perl: 3,226; makefile: 2
file content (73 lines) | stat: -rw-r--r-- 1,613 bytes parent folder | download | duplicates (3)
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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
package FCGI::Engine::Manager::Server::Plackup;
use Moose;

our $VERSION   = '0.22';
our $AUTHORITY = 'cpan:STEVAN';

extends 'FCGI::Engine::Manager::Server';

has 'server_type' => (
    is       => 'ro',
    isa      => 'Str',
    default  => sub { 'FCGI::Engine' }
);

has 'workers' => (
    is       => 'ro',
    isa      => 'Int'
);

sub construct_command_line {
    my $self = shift;
    return ("plackup",
         $self->scriptname,
         "--server",
         $self->server_type,
         ( $self->workers ? ( "--workers", $self->workers ) : ( "--nproc", $self->nproc ) ),
         "--pid",
         $self->pidfile,
         "--listen",
         $self->socket,
         "--daemonize",
         ($self->has_additional_args
             ? $self->additional_args
             : ()));
}

__PACKAGE__->meta->make_immutable;

no Moose; 1;

__END__

=pod

=head1 NAME

FCGI::Engine::Manager::Server::Plackup - A subclass of FCGI::Engine::Manager::Server for Plack apps

=head1 DESCRIPTION

This uses the C<plackup> utility that comes with L<Plack> to manage a L<Plack> FCGI application.
See L<FCGI::Engine::Manager> for details on how to configure things.

=head1 BUGS

All complex software has bugs lurking in it, and this module is no
exception. If you find a bug please either email me, or add the bug
to cpan-RT.

=head1 AUTHOR

Stevan Little E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT AND LICENSE

Copyright 2007-2010 by Infinity Interactive, Inc.

L<http://www.iinteractive.com>

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut