bin/catalyst

   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 [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 My::App
  35     catalyst MyApp
  36
  37 =head1 DESCRIPTION
  38
  39 Bootstrap a Catalyst application.
  40
  41 =head1 AUTHOR
  42
  43 Sebastian Riedel Sebastian Riedel, C<sri@oook.de>
  44
  45 =head1 COPYRIGHT
  46
  47 Copyright 2004 Sebastian Riedel. All rights reserved.
  48
  49 This library is free software. You can redistribute it and/or modify it under
  50 the same terms as perl itself.
  51
  52 =cut