use Pod::Find qw(pod_where);
use namespace::autoclean;
-our $VERSION = '0.02';
+our $VERSION = '0.03';
extends 'Catalyst::Script::Server';
return %out;
};
-sub _getopt_full_usage {
+sub print_usage_text {
my $self = shift;
pod2usage( -input => pod_where({-inc => 1}, __PACKAGE__), -verbose => 2 );
exit 0;
myapp_server.pl [options]
-d --debug force debug mode
- -f --fork handle each request in a new process
- (defaults to false)
-? --help display this help and exits
-h --host host (defaults to all)
-p --port port (defaults to 3000)