| Commit | Line | Data |
|---|
| e3c8a4c3 |
1 | #/usr/bin/perl -w |
| 30726632 |
2 | |
| 3 | use strict; |
| 4 | use warnings; |
| 5 | use Getopt::Long; |
| 6 | use Pod::Usage; |
| 7 | use FindBin; |
| 8 | use lib "$FindBin::Bin/../lib"; |
| 9 | use Catalyst::Test 'ESITest'; |
| 10 | |
| 11 | my $help = 0; |
| 12 | |
| 13 | GetOptions( 'help|?' => \$help ); |
| 14 | |
| 15 | pod2usage(1) if ( $help || !$ARGV[0] ); |
| 16 | |
| 17 | print request($ARGV[0])->content . "\n"; |
| 18 | |
| 19 | 1; |
| 20 | |
| 21 | =head1 NAME |
| 22 | |
| 23 | esitest_test.pl - Catalyst Test |
| 24 | |
| 25 | =head1 SYNOPSIS |
| 26 | |
| 27 | esitest_test.pl [options] uri |
| 28 | |
| 29 | Options: |
| 30 | -help display this help and exits |
| 31 | |
| 32 | Examples: |
| 33 | esitest_test.pl http://localhost/some_action |
| 34 | esitest_test.pl /some_action |
| 35 | |
| 36 | See also: |
| 37 | perldoc Catalyst::Manual |
| 38 | perldoc Catalyst::Manual::Intro |
| 39 | |
| 40 | =head1 DESCRIPTION |
| 41 | |
| 42 | Run a Catalyst action from the command line. |
| 43 | |
| 44 | =head1 AUTHORS |
| 45 | |
| 46 | Catalyst Contributors, see Catalyst.pm |
| 47 | |
| 48 | =head1 COPYRIGHT |
| 49 | |
| 50 | This library is free software, you can redistribute it and/or modify |
| 51 | it under the same terms as Perl itself. |
| 52 | |
| 53 | =cut |
projects / catagits/Catalyst-View-Component-SubInclude.git / blame