Initial Commit

database/perl/vendor/lib/Mojolicious/Command/cgi.pm

@@ -0,0 +1,80 @@
+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