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
|
#!/usr/bin/env perl
use strict;
use warnings;
use Getopt::Long qw(GetOptions :config no_auto_abbrev no_ignore_case);
GetOptions
'f|foreground' => \$ENV{HYPNOTOAD_FOREGROUND},
'h|help' => \my $help,
's|stop' => \$ENV{HYPNOTOAD_STOP},
't|test' => \$ENV{HYPNOTOAD_TEST};
my $app = shift || $ENV{HYPNOTOAD_APP};
if ($help || !$app) {
require Mojolicious::Command;
die Mojolicious::Command->new->extract_usage;
}
require Mojo::Server::Hypnotoad;
Mojo::Server::Hypnotoad->new->run($app);
=encoding utf8
=head1 NAME
hypnotoad - Hypnotoad HTTP and WebSocket server
=head1 SYNOPSIS
Usage: hypnotoad [OPTIONS] [APPLICATION]
hypnotoad ./script/myapp
hypnotoad ./myapp.pl
hypnotoad -f ./myapp.pl
Options:
-f, --foreground Keep manager process in foreground.
-h, --help Show this message.
-s, --stop Stop server gracefully.
-t, --test Test application and exit.
=head1 DESCRIPTION
Start L<Mojolicious> and L<Mojolicious::Lite> applications with the
L<Mojo::Server::Hypnotoad> web server.
=head1 SEE ALSO
L<Mojolicious>, L<Mojolicious::Guides>, L<http://mojolicio.us>.
=cut
|
