[catagits/Catalyst-Runtime.git] / bin / catalyst

#!/usr/bin/perl -w

use strict;
use Getopt::Long;
use Pod::Usage;
use Catalyst::Helper;

my $help = 0;

GetOptions( 'help|?' => \$help );

pod2usage(1) if ( $help || !$ARGV[0] );

my $helper = Catalyst::Helper->new;
pod2usage(1) unless $helper->mk_app( $ARGV[0] );

1;
__END__

=head1 NAME

catalyst - Bootstrap a Catalyst application

=head1 SYNOPSIS

catalyst [options] application-name

 Options:
   -help        display this help and exits

 application-name has to be a valid Perl module name and can include ::

 Examples:
    catalyst My::App
    catalyst MyApp

=head1 DESCRIPTION

Bootstrap a Catalyst application.

=head1 AUTHOR

Sebastian Riedel Sebastian Riedel, C<sri@oook.de>

=head1 COPYRIGHT

Copyright 2004 Sebastian Riedel. All rights reserved.

This library is free software. You can redistribute it and/or modify it under
the same terms as perl itself.

=cut
Commit	Line	Data
fc7ec1d9	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