use Pod::Find qw(pod_where);
use namespace::autoclean;
-our $VERSION = '0.01';
+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)
=head1 Adding this to your application
-Just write a server script in your application which inherits from this
+Just add a server script module to your application which inherits from this
package.
+L<Catalyst::ScriptRunner> will automatically detect and use it when
+script/myapp_server.pl is started.
+
For example:
package MyApp::Script::Server;
=head1 AUTHOR
-Tomas Doran (t0m) C<< <bobtfish@bobtfish.net >>
+Tomas Doran (t0m) C<< <bobtfish@bobtfish.net> >>
=head1 COPYRIGHT & LICENSE