script/catalyst.pl

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use Getopt::Long;
   5 use Pod::Usage;
   6 use Catalyst::Helper;
   7
   8 my $help = 0;
   9
  10 GetOptions( 'help|?' => \$help );
  11
  12 pod2usage(1) if ( $help || !$ARGV[0] );
  13
  14 my $helper = Catalyst::Helper->new;
  15 pod2usage(1) unless $helper->mk_app( $ARGV[0] );
  16
  17 1;
  18 __END__
  19
  20 =head1 NAME
  21
  22 catalyst - Bootstrap a Catalyst application
  23
  24 =head1 SYNOPSIS
  25
  26 catalyst.pl [options] application-name
  27
  28  Options:
  29    -help        display this help and exits
  30
  31  application-name has to be a valid Perl module name and can include ::
  32
  33  Examples:
  34     catalyst.pl My::App
  35     catalyst.pl MyApp
  36
  37  See also:
  38     perldoc Catalyst::Manual
  39     perldoc Catalyst::Manual::Intro
  40
  41 =head1 DESCRIPTION
  42
  43 Bootstrap a Catalyst application.
  44
  45 =head1 SEE ALSO
  46
  47 L<Catalyst>, L<Catalyst::Manual>, L<Catalyst::Manual::Intro>,
  48 L<Catalyst::Test>, L<Catalyst::Request>, L<Catalyst::Response>,
  49 L<Catalyst::Engine>
  50
  51 =head1 AUTHOR
  52
  53 Sebastian Riedel, C<sri@oook.de>
  54
  55 =head1 COPYRIGHT
  56
  57 Copyright 2004 Sebastian Riedel. All rights reserved.
  58
  59 This library is free software. You can redistribute it and/or modify it under
  60 the same terms as perl itself.
  61
  62 =cut