8 use lib
"$FindBin::Bin/../lib";
9 use Catalyst
::Test
'CPAN::Blame';
13 GetOptions
( 'help|?' => \
$help );
15 pod2usage
(1) if ( $help || !$ARGV[0] );
17 print request
($ARGV[0])->content . "\n";
23 cpan_blame_test.pl - Catalyst Test
27 cpan_blame_test.pl [options] uri
30 -help display this help and exits
33 cpan_blame_test.pl http://localhost/some_action
34 cpan_blame_test.pl /some_action
37 perldoc Catalyst::Manual
38 perldoc Catalyst::Manual::Intro
42 Run a Catalyst action from the command line.
46 Catalyst Contributors, see Catalyst.pm
50 This library is free software. You can redistribute it and/or modify
51 it under the same terms as Perl itself.