package Catalyst::Script::Test;
use Moose;
+use Catalyst::Test ();
use namespace::autoclean;
with 'Catalyst::ScriptRole';
-has '+help' => (cmd_aliases => 'h');
-
sub run {
my $self = shift;
- Class::MOP::load_class("Catalyst::Test");
Catalyst::Test->import($self->application_name);
- print request($ARGV[1])->content . "\n";
-
+ print request($self->ARGV->[0])->content . "\n";
}
=head1 SYNOPSIS
-See L<Catalyst>.
+ myapp_test.pl [options] /path
+
+ Options:
+ -h --help display this help and exits
=head1 DESCRIPTION
-FIXME
+Script to perform a test hit against your application and display the output.
=head1 AUTHORS