Webpacus/script/webpacus_create.pl

#!/usr/bin/perl -w

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

my $help = 0;
my $nonew = 0;
my $short = 0;

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

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

my $helper =
    Catalyst::Helper->new( { '.newfiles' => !$nonew, short => $short } );

pod2usage(1) unless $helper->mk_component( 'Webpacus', @ARGV );

1;

=head1 NAME

webpacus_create.pl - Create a new Catalyst Component

=head1 SYNOPSIS

webpacus_create.pl [options] model|view|controller name [helper] [options]

 Options:
   -help     display this help and exits
   -nonew    don't create a .new file where a file to be created exists
   -short    use short types, like C instead of Controller...

 Examples:
   webpacus_create.pl controller My::Controller
   webpacus_create.pl view My::View
   webpacus_create.pl view MyView TT
   webpacus_create.pl view TT TT
   webpacus_create.pl model My::Model
   webpacus_create.pl model SomeDB CDBI dbi:SQLite:/tmp/my.db
   webpacus_create.pl model AnotherDB CDBI dbi:Pg:dbname=foo root 4321

 See also:
   perldoc Catalyst::Manual
   perldoc Catalyst::Manual::Intro

=head1 DESCRIPTION

Create a new Catalyst Component.

Existing component files are not overwritten.  If any of the component files
to be created already exist the file will be written with a '.new' suffix.
This behavior can be suppressed with the C<-nonew> option.

=head1 AUTHOR

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
1	dpavlin	83	#!/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			my $nonew = 0;
10			my $short = 0;
11
12			GetOptions(
13			'help\|?' => \$help,
14			'nonew' => \$nonew,
15			'short' => \$short
16			);
17
18			pod2usage(1) if ( $help \|\| !$ARGV[0] );
19
20			my $helper =
21			Catalyst::Helper->new( { '.newfiles' => !$nonew, short => $short } );
22
23			pod2usage(1) unless $helper->mk_component( 'Webpacus', @ARGV );
24
25			1;
26
27			=head1 NAME
28
29			webpacus_create.pl - Create a new Catalyst Component
30
31			=head1 SYNOPSIS
32
33			webpacus_create.pl [options] model\|view\|controller name [helper] [options]
34
35			Options:
36			-help display this help and exits
37			-nonew don't create a .new file where a file to be created exists
38			-short use short types, like C instead of Controller...
39
40			Examples:
41			webpacus_create.pl controller My::Controller
42			webpacus_create.pl view My::View
43			webpacus_create.pl view MyView TT
44			webpacus_create.pl view TT TT
45			webpacus_create.pl model My::Model
46			webpacus_create.pl model SomeDB CDBI dbi:SQLite:/tmp/my.db
47			webpacus_create.pl model AnotherDB CDBI dbi:Pg:dbname=foo root 4321
48
49			See also:
50			perldoc Catalyst::Manual
51			perldoc Catalyst::Manual::Intro
52
53			=head1 DESCRIPTION
54
55			Create a new Catalyst Component.
56
57			Existing component files are not overwritten. If any of the component files
58			to be created already exist the file will be written with a '.new' suffix.
59			This behavior can be suppressed with the C<-nonew> option.
60
61			=head1 AUTHOR
62
63			Sebastian Riedel, C<sri\@oook.de>
64
65			=head1 COPYRIGHT
66
67			Copyright 2004 Sebastian Riedel. All rights reserved.
68
69			This library is free software, you can redistribute it and/or modify
70			it under the same terms as Perl itself.
71
72			=cut