script/gitalist_test.pl

   1 #!/usr/bin/perl
   2 use FindBin;
   3 BEGIN {
   4     my $env = "$FindBin::Bin/env";
   5     if (-r $env) {
   6         do $env or die $@;
   7     }
   8 }
   9
  10 use Catalyst::ScriptRunner;
  11 Catalyst::ScriptRunner->run('Gitalist','Test');
  12
  13 1;
  14
  15 =head1 NAME
  16
  17 gitalist_test.pl - Catalyst Test
  18
  19 =head1 SYNOPSIS
  20
  21 gitalist_test.pl [options] uri
  22
  23  Options:
  24    -help    display this help and exits
  25
  26  Examples:
  27    gitalist_test.pl http://localhost/some_action
  28    gitalist_test.pl /some_action
  29
  30  See also:
  31    perldoc Catalyst::Manual
  32    perldoc Catalyst::Manual::Intro
  33
  34 =head1 DESCRIPTION
  35
  36 Run a Catalyst action from the command line.
  37
  38 =head1 AUTHORS
  39
  40 Catalyst Contributors, see Catalyst.pm
  41
  42 =head1 COPYRIGHT
  43
  44 This library is free software. You can redistribute it and/or modify
  45 it under the same terms as Perl itself.
  46
  47 =cut