root/Mixxi/trunk/script/mixxi_test.pl

Revision 2067 (checked in by miyagawa, 14 years ago)

import Mixxi tinyurl

  • Property svn:executable set to *
Line 
1 #!/usr/bin/perl -w
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 'Mixxi';
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 mixxi_test.pl - Catalyst Test
24
25 =head1 SYNOPSIS
26
27 mixxi_test.pl [options] uri
28
29  Options:
30    -help    display this help and exits
31
32  Examples:
33    mixxi_test.pl http://localhost/some_action
34    mixxi_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 AUTHOR
45
46 Sebastian Riedel, C<sri@oook.de>
47 Maintained by the Catalyst Core Team.
48
49 =head1 COPYRIGHT
50
51 This library is free software, you can redistribute it and/or modify
52 it under the same terms as Perl itself.
53
54 =cut
Note: See TracBrowser for help on using the browser.