view release on metacpan or  search on metacpan

lib/Beagle/Cmd/Command/web.pm  view on Meta::CPAN

    isa           => 'Str',
    is            => 'rw',
    documentation => 'names of beagles',
    traits        => ['Getopt'],
);

has 'command' => (
    isa           => 'Str',
    is            => 'rw',
    traits        => ['Getopt'],
    documentation => "command to run, e.g. plackup, starman, twiggy, etc.",
);

no Any::Moose;
__PACKAGE__->meta->make_immutable;

sub execute {
    my ( $self, $opt, $args ) = @_;
    die "can't call web command in web term" if $ENV{BEAGLE_WEB_TERM};

    my $root = current_root('not die');

lib/Beagle/Cmd/Command/web.pm  view on Meta::CPAN

__END__

=head1 NAME

Beagle::Cmd::Command::web - start web server

=head1 SYNOPSIS

    $ beagle web
    $ beagle web --port 8080
    $ beagle web --command starman
    $ beagle web --admin

=head1 DESCRIPTION

Besices options below, C<web> supports options of C<plackup> too, so you can
use C<--port>, C<--listen>, etc.

=head1 AUTHOR

    sunnavy <sunnavy@gmail.com>