#!/usr/bin/env perl
 
use strict;
use warnings;
 
use FindBin;
BEGIN { unshift @INC, "$FindBin::Bin/../lib" }
 
use Getopt::Long qw(GetOptions :config no_auto_abbrev no_ignore_case);
 
GetOptions
  'f|foreground' => sub { $ENV{HYPNOTOAD_FOREGROUND} = 1 },
  'h|help'       => \my $help,
  's|stop'       => sub { $ENV{HYPNOTOAD_STOP}       = 1 },
  't|test'       => sub { $ENV{HYPNOTOAD_TEST}       = 1 };
 
die <<EOF if $help || !(my $app = shift || $ENV{HYPNOTOAD_APP});
usage: $0 [OPTIONS] [APPLICATION]
 
  hypnotoad script/myapp
  hypnotoad myapp.pl
  hypnotoad -f myapp.pl
 
These options are available:
  -f, --foreground   Keep manager process in foreground.
  -h, --help         Show this message.
  -s, --stop         Stop server gracefully.
  -t, --test         Test application and exit.
EOF
 
require Mojo::Server::Hypnotoad;
Mojo::Server::Hypnotoad->new->run($app);
 
=encoding utf8
 
=head1 NAME
 
hypnotoad - Hypnotoad HTTP and WebSocket server
 
=head1 SYNOPSIS
 
  $ hypnotoad --help
  $ hypnotoad myapp.pl
 
=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