45 lines
1.0 KiB
Perl
45 lines
1.0 KiB
Perl
#!perl
|
|
use Mojo::Base -strict;
|
|
|
|
use Mojo::Server::Hypnotoad;
|
|
use Mojo::Util qw(extract_usage getopt);
|
|
|
|
getopt
|
|
'f|foreground' => \$ENV{HYPNOTOAD_FOREGROUND},
|
|
'h|help' => \my $help,
|
|
's|stop' => \$ENV{HYPNOTOAD_STOP},
|
|
't|test' => \$ENV{HYPNOTOAD_TEST};
|
|
|
|
die extract_usage if $help || !(my $app = shift || $ENV{HYPNOTOAD_APP});
|
|
Mojo::Server::Hypnotoad->new->run($app);
|
|
|
|
=encoding utf8
|
|
|
|
=head1 NAME
|
|
|
|
hypnotoad - Hypnotoad HTTP and WebSocket server
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
Usage: hypnotoad [OPTIONS] [APPLICATION]
|
|
|
|
hypnotoad ./script/my_app
|
|
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<Hypnotoad|Mojo::Server::Hypnotoad> web server.
|
|
|
|
=head1 SEE ALSO
|
|
|
|
L<Mojolicious>, L<Mojolicious::Guides>, L<https://mojolicious.org>.
|
|
|
|
=cut
|