# Needs to be here for PAR
require Catalyst;
- return 0 if $name =~ /[^\w\:]/;
+ if ( $name =~ /[^\w\:]/ ) {
+ warn "Error: Invalid application name.\n";
+ return 0;
+ }
$self->{name} = $name;
$self->{dir} = $name;
$self->{dir} =~ s/\:\:/-/g;
unless ( $self->{scripts} ) {
$self->_mk_dirs;
$self->_mk_appclass;
- $self->_mk_build;
$self->_mk_makefile;
$self->_mk_readme;
$self->_mk_changes;
$self->_mk_apptest;
$self->_mk_images;
$self->_mk_favicon;
- $self->_mk_package;
}
$self->_mk_cgi;
$self->_mk_fastcgi;
$self->{uri} = $prefix;
}
my $dir = $self->{test_dir};
- my $type = $self->{type};
- $dir = File::Spec->catdir( $dir, $type );
+ my $type = lc $self->{type};
$self->mk_dir($dir);
- return File::Spec->catfile( $dir, $tname );
+ return File::Spec->catfile( $dir, "$type\_$tname" );
}
=head3 render_file
$self->{t} = File::Spec->catdir( $self->{dir}, 't' );
$self->mk_dir( $self->{t} );
- if ( $self->{short} ) {
- $self->mk_dir( File::Spec->catdir( $self->{t}, 'M' ) );
- $self->mk_dir( File::Spec->catdir( $self->{t}, 'V' ) );
- $self->mk_dir( File::Spec->catdir( $self->{t}, 'C' ) );
- }
- else {
- $self->mk_dir( File::Spec->catdir( $self->{t}, 'Model' ) );
- $self->mk_dir( File::Spec->catdir( $self->{t}, 'View' ) );
- $self->mk_dir( File::Spec->catdir( $self->{t}, 'Controller' ) );
- }
-
$self->{class} = File::Spec->catdir( split( /\:\:/, $self->{name} ) );
$self->{mod} = File::Spec->catdir( $self->{lib}, $self->{class} );
$self->mk_dir( $self->{mod} );
$self->render_file( 'appclass', "$mod.pm" );
}
-sub _mk_build {
- my $self = shift;
- my $dir = $self->{dir};
- $self->render_file( 'build', "$dir\/Build.PL" );
-}
-
sub _mk_makefile {
my $self = shift;
- my $dir = $self->{dir};
+ $self->{path} = File::Spec->catfile( 'lib', split( '::', $self->{name} ) );
+ $self->{path} .= '.pm';
+ my $dir = $self->{dir};
$self->render_file( 'makefile', "$dir\/Makefile.PL" );
}
}
-sub _mk_package {
- my $self = shift;
- my $script = $self->{script};
- my $appprefix = $self->{appprefix};
- $self->render_file( 'package', "$script\/$appprefix\_package.pl" );
- chmod 0700, "$script/$appprefix\_package.pl";
-}
-
=head1 HELPERS
Helpers are classes that provide two methods.
=head1 METHODS
-=over 4
-
-=item default
+=head2 default
=cut
#
# Uncomment and modify this end action after adding a View component
#
-#=item end
+#=head2 end
#
#=cut
#
# $c->forward('View::') unless $c->response->body;
#}
-=back
-
=head1 AUTHOR
[% author %]
1;
__makefile__
- unless ( eval "use Module::Build::Compat 0.02; 1" ) {
- print "This module requires Module::Build to install itself.\n";
+use inc::Module::Install;
- require ExtUtils::MakeMaker;
- my $yn =
- ExtUtils::MakeMaker::prompt( ' Install Module::Build now from CPAN?', 'y' );
+name('[% name %]');
+abstract('Catalyst Application');
+author('[% author %]');
+version_from('[% path %]');
+license('perl');
- unless ( $yn =~ /^y/i ) {
- die " *** Cannot install without Module::Build. Exiting ...\n";
- }
-
- require Cwd;
- require File::Spec;
- require CPAN;
+requires( Catalyst => '5.57');
- # Save this 'cause CPAN will chdir all over the place.
- my $cwd = Cwd::cwd();
- my $makefile = File::Spec->rel2abs($0);
+install_script( glob('script/*.pl') );
+tests( glob('t/*.t'), glob('t/*/*.t') );
- CPAN::Shell->install('Module::Build::Compat')
- or die " *** Cannot install without Module::Build. Exiting ...\n";
+catalyst_files();
- chdir $cwd or die "Cannot chdir() back to $cwd: $!";
- }
- eval "use Module::Build::Compat 0.02; 1" or die $@;
- use lib '_build/lib';
- Module::Build::Compat->run_build_pl( args => \@ARGV );
- require Module::Build;
- Module::Build::Compat->write_makefile( build_class => 'Module::Build' );
-__build__
-use strict;
-use Catalyst::Build;
-
-my $build = Catalyst::Build->new(
- license => 'perl',
- module_name => '[% name %]',
- requires => { Catalyst => '5.49' },
- create_makefile_pl => 'passthrough',
- script_files => [ glob('script/*') ],
- test_files => [ glob('t/*.t'), glob('t/*/*.t') ]
-);
-$build->create_build_script;
+&WriteAll;
__readme__
Run script/[% appprefix %]_server.pl to test the application.
__changes__
This file documents the revision history for Perl extension [% name %].
+
0.01 [% time %]
- initial revision, generated by Catalyst
__apptest__
use [% name %];
my $help = 0;
-my ( $listen, $nproc, $pidfile );
+my ( $listen, $nproc, $pidfile, $manager, $detach );
GetOptions(
'help|?' => \$help,
'listen|l=s' => \$listen,
'nproc|n=i' => \$nproc,
'pidfile|p=s' => \$pidfile,
+ 'manager|M=s' => \$manager,
+ 'daemon|d' => \$detach,
);
pod2usage(1) if $help;
$listen,
{ nproc => $nproc,
pidfile => $pidfile,
+ manager => $manager,
+ detach => $detach,
}
);
requires -listen)
-p -pidfile specify filename for pid file
(requires -listen)
+ -d -daemon daemonize (requires -listen)
+ -M -manager specify alternate process manager
+ (FCGI::ProcessManager sub-class)
+ or empty string to disable
=head1 DESCRIPTION
use Pod::Usage;
use Catalyst::Helper;
-my $help = 0;
-my $nonew = 0;
+my $force = 0;
+my $help = 0;
my $short = 0;
GetOptions(
- 'help|?' => \$help,
- 'nonew' => \$nonew,
- 'short' => \$short
+ 'nonew|force' => \$force,
+ 'help|?' => \$help,
+ 'short' => \$short
);
pod2usage(1) if ( $help || !$ARGV[0] );
my $helper =
- Catalyst::Helper->new( { '.newfiles' => !$nonew, short => $short } );
+ Catalyst::Helper->new( { '.newfiles' => !$force, short => $short } );
pod2usage(1) unless $helper->mk_component( '[% name %]', @ARGV );
[% appprefix %]_create.pl [options] model|view|controller name [helper] [options]
Options:
+ -force don't create a .new file where a file to be created exists
-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:
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
-__package__
-[% startperl %]
-
-use strict;
-use Getopt::Long;
-use Pod::Usage;
-use Catalyst::PAR;
-
-my $core = 0;
-my $classes = '';
-my $engine = 'CGI';
-my $help = 0;
-my $multiarch = 0;
-my $par = '[% appprefix %].par';
-
-GetOptions(
- 'classes=s' => \$classes,
- 'core' => \$core,
- 'engine=s' => \$engine,
- 'help|?' => \$help,
- 'multiarch' => \$multiarch,
- 'par=s' => \$par
-);
-
-pod2usage(1) if $help;
-
-Catalyst::PAR->new->package( {
- classes => $classes,
- core => $core,
- engine => $engine,
- par => $par,
- multiarch => $multiarch,
- class => '[% name %]'
-} );
-
-1;
-
-=head1 NAME
-
-[% appprefix %]_package.pl - Package Catalyst Applications
-
-=head1 SYNOPSIS
-
-[% appprefix %]_package.pl
-
- Options:
- -classes comma separated list of additional classes to
- include in package
- -core also include modules bundled with Perl (defaults to false)
- -engine engine to use for dependency detection (defaults to CGI)
- -help display this help and exits
- -multiarch enable multiarch support (defaults to false)
- -par name for the par archive (defaults to [% appprefix %].par)
-
- Examples:
- [% appprefix %]_package.pl -engine FastCGI
- [% appprefix %]_package.pl -par foo_linux_i386_apache2.par -engine Apache2
- [% appprefix %]_package.pl -classes Test::More,Foo::Bar -par foo.par
-
- See also:
- perldoc Catalyst::Manual
- perldoc Catalyst::Manual::Intro
- perldoc pp
-
-=head1 DESCRIPTION
-
-Package Catalyst Applications with L<PAR>.
+This behavior can be suppressed with the C<-force> option.
=head1 AUTHOR
[% IF long_type == 'Controller' %]
=head1 METHODS
-=over 4
-
#
# Uncomment and modify this or add new actions to fit your needs
#
-#=item default
+#=head2 default
#
#=cut
#
# $c->response->body('[% class %] is on Catalyst!');
#}
-=back
-
[% END %]
=head1 AUTHOR
projects / catagits/Catalyst-Runtime.git / blobdiff