81 lines
2.0 KiB
Perl
81 lines
2.0 KiB
Perl
package Mojolicious::Command::cgi;
|
|
use Mojo::Base 'Mojolicious::Command';
|
|
|
|
use Mojo::Server::CGI;
|
|
use Mojo::Util qw(getopt);
|
|
|
|
has description => 'Start application with CGI';
|
|
has usage => sub { shift->extract_usage };
|
|
|
|
sub run {
|
|
my ($self, @args) = @_;
|
|
die $self->usage unless getopt \@args, nph => \(my $nph = 0);
|
|
Mojo::Server::CGI->new(app => $self->app, nph => $nph)->run;
|
|
}
|
|
|
|
1;
|
|
|
|
=encoding utf8
|
|
|
|
=head1 NAME
|
|
|
|
Mojolicious::Command::cgi - CGI command
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
Usage: APPLICATION cgi [OPTIONS]
|
|
|
|
./myapp.pl cgi
|
|
|
|
Options:
|
|
-h, --help Show this summary of available options
|
|
--home <path> Path to home directory of your application, defaults to
|
|
the value of MOJO_HOME or auto-detection
|
|
-m, --mode <name> Operating mode for your application, defaults to the
|
|
value of MOJO_MODE/PLACK_ENV or "development"
|
|
--nph Enable non-parsed-header mode
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
L<Mojolicious::Command::cgi> starts applications with the L<Mojo::Server::CGI> backend.
|
|
|
|
This is a core command, that means it is always enabled and its code a good example for learning to build new commands,
|
|
you're welcome to fork it.
|
|
|
|
See L<Mojolicious::Commands/"COMMANDS"> for a list of commands that are available by default.
|
|
|
|
=head1 ATTRIBUTES
|
|
|
|
L<Mojolicious::Command::cgi> inherits all attributes from L<Mojolicious::Command> and implements the following new
|
|
ones.
|
|
|
|
=head2 description
|
|
|
|
my $description = $cgi->description;
|
|
$cgi = $cgi->description('Foo');
|
|
|
|
Short description of this command, used for the command list.
|
|
|
|
=head2 usage
|
|
|
|
my $usage = $cgi->usage;
|
|
$cgi = $cgi->usage('Foo');
|
|
|
|
Usage information for this command, used for the help screen.
|
|
|
|
=head1 METHODS
|
|
|
|
L<Mojolicious::Command::cgi> inherits all methods from L<Mojolicious::Command> and implements the following new ones.
|
|
|
|
=head2 run
|
|
|
|
$cgi->run(@ARGV);
|
|
|
|
Run this command.
|
|
|
|
=head1 SEE ALSO
|
|
|
|
L<Mojolicious>, L<Mojolicious::Guides>, L<https://mojolicious.org>.
|
|
|
|
=cut
|