| line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
|
1
|
|
|
|
|
|
|
package Mojolicious::Command::prefork; |
|
2
|
1
|
|
|
1
|
|
7
|
use Mojo::Base 'Mojolicious::Command'; |
|
|
1
|
|
|
|
|
2
|
|
|
|
1
|
|
|
|
|
7
|
|
|
3
|
|
|
|
|
|
|
|
|
4
|
1
|
|
|
1
|
|
683
|
use Mojo::Server::Prefork; |
|
|
1
|
|
|
|
|
9
|
|
|
|
1
|
|
|
|
|
16
|
|
|
5
|
1
|
|
|
1
|
|
9
|
use Mojo::Util qw(getopt); |
|
|
1
|
|
|
|
|
3
|
|
|
|
1
|
|
|
|
|
682
|
|
|
6
|
|
|
|
|
|
|
|
|
7
|
|
|
|
|
|
|
has description => 'Start application with pre-forking HTTP and WebSocket server'; |
|
8
|
|
|
|
|
|
|
has usage => sub { shift->extract_usage }; |
|
9
|
|
|
|
|
|
|
|
|
10
|
|
|
|
|
|
|
sub build_server { |
|
11
|
5
|
|
|
5
|
1
|
55
|
my ($self, @args) = @_; |
|
12
|
|
|
|
|
|
|
|
|
13
|
5
|
|
|
|
|
27
|
my $prefork = Mojo::Server::Prefork->new(app => $self->app); |
|
14
|
|
|
|
|
|
|
die $self->usage |
|
15
|
|
|
|
|
|
|
unless getopt \@args, |
|
16
|
0
|
|
|
0
|
|
0
|
'a|accepts=i' => sub { $prefork->accepts($_[1]) }, |
|
17
|
0
|
|
|
0
|
|
0
|
'b|backlog=i' => sub { $prefork->backlog($_[1]) }, |
|
18
|
0
|
|
|
0
|
|
0
|
'c|clients=i' => sub { $prefork->max_clients($_[1]) }, |
|
19
|
0
|
|
|
0
|
|
0
|
'G|graceful-timeout=i' => sub { $prefork->graceful_timeout($_[1]) }, |
|
20
|
0
|
|
|
0
|
|
0
|
'I|heartbeat-interval=i' => sub { $prefork->heartbeat_interval($_[1]) }, |
|
21
|
0
|
|
|
0
|
|
0
|
'H|heartbeat-timeout=i' => sub { $prefork->heartbeat_timeout($_[1]) }, |
|
22
|
0
|
|
|
0
|
|
0
|
'i|inactivity-timeout=i' => sub { $prefork->inactivity_timeout($_[1]) }, |
|
23
|
0
|
|
|
0
|
|
0
|
'k|keep-alive-timeout=i' => sub { $prefork->keep_alive_timeout($_[1]) }, |
|
24
|
|
|
|
|
|
|
'l|listen=s' => \my @listen, |
|
25
|
0
|
|
|
0
|
|
0
|
'P|pid-file=s' => sub { $prefork->pid_file($_[1]) }, |
|
26
|
|
|
|
|
|
|
'p|proxy:s' => \my @proxy, |
|
27
|
0
|
|
|
0
|
|
0
|
'r|requests=i' => sub { $prefork->max_requests($_[1]) }, |
|
28
|
0
|
|
|
0
|
|
0
|
's|spare=i' => sub { $prefork->spare($_[1]) }, |
|
29
|
5
|
100
|
|
0
|
|
119
|
'w|workers=i' => sub { $prefork->workers($_[1]) }; |
|
|
0
|
|
|
|
|
0
|
|
|
30
|
|
|
|
|
|
|
|
|
31
|
4
|
50
|
|
|
|
55
|
$prefork->listen(\@listen) if @listen; |
|
32
|
4
|
100
|
|
|
|
37
|
$prefork->reverse_proxy(1) if @proxy; |
|
33
|
4
|
|
|
|
|
14
|
my @trusted = grep {length} @proxy; |
|
|
6
|
|
|
|
|
13
|
|
|
34
|
4
|
100
|
|
|
|
19
|
$prefork->trusted_proxies(\@trusted) if @trusted; |
|
35
|
4
|
|
|
|
|
18
|
return $prefork; |
|
36
|
|
|
|
|
|
|
} |
|
37
|
|
|
|
|
|
|
|
|
38
|
1
|
|
|
1
|
1
|
44
|
sub run { shift->build_server(@_)->run } |
|
39
|
|
|
|
|
|
|
|
|
40
|
|
|
|
|
|
|
1; |
|
41
|
|
|
|
|
|
|
|
|
42
|
|
|
|
|
|
|
=encoding utf8 |
|
43
|
|
|
|
|
|
|
|
|
44
|
|
|
|
|
|
|
=head1 NAME |
|
45
|
|
|
|
|
|
|
|
|
46
|
|
|
|
|
|
|
Mojolicious::Command::prefork - Pre-fork command |
|
47
|
|
|
|
|
|
|
|
|
48
|
|
|
|
|
|
|
=head1 SYNOPSIS |
|
49
|
|
|
|
|
|
|
|
|
50
|
|
|
|
|
|
|
Usage: APPLICATION prefork [OPTIONS] |
|
51
|
|
|
|
|
|
|
|
|
52
|
|
|
|
|
|
|
./myapp.pl prefork |
|
53
|
|
|
|
|
|
|
./myapp.pl prefork -m production -p -l http://*:8080 |
|
54
|
|
|
|
|
|
|
./myapp.pl prefork -l http://127.0.0.1:8080 -l https://[::]:8081 |
|
55
|
|
|
|
|
|
|
./myapp.pl prefork -l 'https://*:443?cert=./server.crt&key=./server.key' |
|
56
|
|
|
|
|
|
|
./myapp.pl prefork -l http+unix://%2Ftmp%2Fmyapp.sock -w 12 |
|
57
|
|
|
|
|
|
|
./myapp.pl prefork -l http://127.0.0.1:8080 -p 127.0.0.0/8 -p fc00::/7 |
|
58
|
|
|
|
|
|
|
|
|
59
|
|
|
|
|
|
|
Options: |
|
60
|
|
|
|
|
|
|
-a, --accepts Number of connections for workers to |
|
61
|
|
|
|
|
|
|
accept, defaults to 10000 |
|
62
|
|
|
|
|
|
|
-b, --backlog Listen backlog size, defaults to |
|
63
|
|
|
|
|
|
|
SOMAXCONN |
|
64
|
|
|
|
|
|
|
-c, --clients Maximum number of concurrent |
|
65
|
|
|
|
|
|
|
connections, defaults to 1000 |
|
66
|
|
|
|
|
|
|
-G, --graceful-timeout Graceful timeout, defaults to 120. |
|
67
|
|
|
|
|
|
|
-I, --heartbeat-interval Heartbeat interval, defaults to 5 |
|
68
|
|
|
|
|
|
|
-H, --heartbeat-timeout Heartbeat timeout, defaults to 50 |
|
69
|
|
|
|
|
|
|
-h, --help Show this summary of available options |
|
70
|
|
|
|
|
|
|
--home Path to home directory of your |
|
71
|
|
|
|
|
|
|
application, defaults to the value of |
|
72
|
|
|
|
|
|
|
MOJO_HOME or auto-detection |
|
73
|
|
|
|
|
|
|
-i, --inactivity-timeout Inactivity timeout, defaults to the |
|
74
|
|
|
|
|
|
|
value of MOJO_INACTIVITY_TIMEOUT or 30 |
|
75
|
|
|
|
|
|
|
-k, --keep-alive-timeout Keep-alive timeout, defaults to the |
|
76
|
|
|
|
|
|
|
value of MOJO_KEEP_ALIVE_TIMEOUT or 5 |
|
77
|
|
|
|
|
|
|
-l, --listen One or more locations you want to |
|
78
|
|
|
|
|
|
|
listen on, defaults to the value of |
|
79
|
|
|
|
|
|
|
MOJO_LISTEN or "http://*:3000" |
|
80
|
|
|
|
|
|
|
-m, --mode Operating mode for your application, |
|
81
|
|
|
|
|
|
|
defaults to the value of |
|
82
|
|
|
|
|
|
|
MOJO_MODE/PLACK_ENV or "development" |
|
83
|
|
|
|
|
|
|
-P, --pid-file Path to process id file, defaults to |
|
84
|
|
|
|
|
|
|
"prefork.pid" in a temporary directory |
|
85
|
|
|
|
|
|
|
-p, --proxy [] Activate reverse proxy support, |
|
86
|
|
|
|
|
|
|
defaults to the value of |
|
87
|
|
|
|
|
|
|
MOJO_REVERSE_PROXY, optionally takes |
|
88
|
|
|
|
|
|
|
one or more trusted proxy addresses or |
|
89
|
|
|
|
|
|
|
networks |
|
90
|
|
|
|
|
|
|
-r, --requests Maximum number of requests per |
|
91
|
|
|
|
|
|
|
keep-alive connection, defaults to 100 |
|
92
|
|
|
|
|
|
|
-s, --spare Temporarily spawn up to this number of |
|
93
|
|
|
|
|
|
|
additional workers, defaults to 2 |
|
94
|
|
|
|
|
|
|
-w, --workers Number of workers, defaults to 4 |
|
95
|
|
|
|
|
|
|
|
|
96
|
|
|
|
|
|
|
=head1 DESCRIPTION |
|
97
|
|
|
|
|
|
|
|
|
98
|
|
|
|
|
|
|
L starts applications with the L backend. |
|
99
|
|
|
|
|
|
|
|
|
100
|
|
|
|
|
|
|
This is a core command, that means it is always enabled and its code a good example for learning to build new commands, |
|
101
|
|
|
|
|
|
|
you're welcome to fork it. |
|
102
|
|
|
|
|
|
|
|
|
103
|
|
|
|
|
|
|
See L for a list of commands that are available by default. |
|
104
|
|
|
|
|
|
|
|
|
105
|
|
|
|
|
|
|
=head1 ATTRIBUTES |
|
106
|
|
|
|
|
|
|
|
|
107
|
|
|
|
|
|
|
L inherits all attributes from L and implements the following new |
|
108
|
|
|
|
|
|
|
ones. |
|
109
|
|
|
|
|
|
|
|
|
110
|
|
|
|
|
|
|
=head2 description |
|
111
|
|
|
|
|
|
|
|
|
112
|
|
|
|
|
|
|
my $description = $prefork->description; |
|
113
|
|
|
|
|
|
|
$prefork = $prefork->description('Foo'); |
|
114
|
|
|
|
|
|
|
|
|
115
|
|
|
|
|
|
|
Short description of this command, used for the command list. |
|
116
|
|
|
|
|
|
|
|
|
117
|
|
|
|
|
|
|
=head2 usage |
|
118
|
|
|
|
|
|
|
|
|
119
|
|
|
|
|
|
|
my $usage = $prefork->usage; |
|
120
|
|
|
|
|
|
|
$prefork = $prefork->usage('Foo'); |
|
121
|
|
|
|
|
|
|
|
|
122
|
|
|
|
|
|
|
Usage information for this command, used for the help screen. |
|
123
|
|
|
|
|
|
|
|
|
124
|
|
|
|
|
|
|
=head1 METHODS |
|
125
|
|
|
|
|
|
|
|
|
126
|
|
|
|
|
|
|
L inherits all methods from L and implements the following new |
|
127
|
|
|
|
|
|
|
ones. |
|
128
|
|
|
|
|
|
|
|
|
129
|
|
|
|
|
|
|
=head2 build_server |
|
130
|
|
|
|
|
|
|
|
|
131
|
|
|
|
|
|
|
my $server = $daemon->build_server(@ARGV); |
|
132
|
|
|
|
|
|
|
|
|
133
|
|
|
|
|
|
|
Build L instance from command line arguments. |
|
134
|
|
|
|
|
|
|
|
|
135
|
|
|
|
|
|
|
=head2 run |
|
136
|
|
|
|
|
|
|
|
|
137
|
|
|
|
|
|
|
$prefork->run(@ARGV); |
|
138
|
|
|
|
|
|
|
|
|
139
|
|
|
|
|
|
|
Run this command. |
|
140
|
|
|
|
|
|
|
|
|
141
|
|
|
|
|
|
|
=head1 SEE ALSO |
|
142
|
|
|
|
|
|
|
|
|
143
|
|
|
|
|
|
|
L, L, L. |
|
144
|
|
|
|
|
|
|
|
|
145
|
|
|
|
|
|
|
=cut |