X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FHelper.pm;h=2e7b94b523ed07598a5459c5db8453d521302778;hb=8462f41eb3090c92cc1d775b5019eb3bc4b2d41a;hp=53f6e1a0aaaa4ffc62cfa7f255509c771d665064;hpb=cc96d0e0cc516a34255682caa70f34dbd6aefb8c;p=catagits%2FCatalyst-Devel.git diff --git a/lib/Catalyst/Helper.pm b/lib/Catalyst/Helper.pm index 53f6e1a..2e7b94b 100644 --- a/lib/Catalyst/Helper.pm +++ b/lib/Catalyst/Helper.pm @@ -58,7 +58,9 @@ sub mk_app { $self->{script } = File::Spec->catdir( $self->{dir}, 'script' ); $self->{appprefix } = Catalyst::Utils::appprefix($name); $self->{appenv } = Catalyst::Utils::class2env($name); - $self->{startperl } = "#!$Config{perlpath} -w"; + $self->{startperl } = -r '/usr/bin/env' + ? '#!/usr/bin/env perl' + : "#!$Config{perlpath} -w"; $self->{scriptgen } = $Catalyst::Devel::CATALYST_SCRIPT_GEN || 4; $self->{catalyst_version} = $Catalyst::VERSION; $self->{author } = $self->{author} = $ENV{'AUTHOR'} @@ -89,6 +91,7 @@ sub mk_app { $self->_mk_server; $self->_mk_test; $self->_mk_create; + $self->_mk_information; } return $self->{dir}; } @@ -256,6 +259,11 @@ sub render_file { $self->mk_file( $path, $output ); } +sub _mk_information { + my $self = shift; + print qq/Change to application directory and Run "perl Makefile.PL" to make sure your install is complete\n/; +} + sub _mk_dirs { my $self = shift; $self->mk_dir( $self->{dir} ); @@ -508,6 +516,34 @@ All helper classes should be under one of the following namespaces. Catalyst::Helper::View:: Catalyst::Helper::Controller:: +=head2 COMMON HELPERS + +=over + +=item * + +L - DBIx::Class models + +=item * + +L - Template Toolkit view + +=item * + +L + +=item * + +L - wrap any class into a Catalyst model + +=back + +=head3 NOTE + +The helpers will read author name from /etc/passwd by default. + To override, please export the AUTHOR variable. + +=head1 METHODS + =head2 mk_compclass This method in your Helper module is called with C<$helper> @@ -539,7 +575,7 @@ arguments the user typed. There is no fallback for this method. -=head1 METHODS +=head1 INTERNAL METHODS These are the methods that the Helper classes can call on the <$helper> object passed to them. @@ -596,7 +632,7 @@ Catalyst Contributors, see Catalyst.pm =head1 LICENSE -This library is free software, you can redistribute it and/or modify +This library is free software. You can redistribute it and/or modify it under the same terms as Perl itself. =begin pod_to_ignore @@ -634,7 +670,7 @@ our $VERSION = '0.01'; # configuration file that you set up manually) take precedence # over this when using ConfigLoader. Thus configuration # details given here can function as a default configuration, -# with a external configuration file acting as an override for +# with an external configuration file acting as an override for # local deployment. __PACKAGE__->config( name => '[% name %]' ); @@ -665,7 +701,7 @@ L<[% rootname %]>, L =head1 LICENSE -This library is free software, you can redistribute it and/or modify +This library is free software. You can redistribute it and/or modify it under the same terms as Perl itself. =cut @@ -727,7 +763,7 @@ sub end : ActionClass('RenderView') {} =head1 LICENSE -This library is free software, you can redistribute it and/or modify +This library is free software. You can redistribute it and/or modify it under the same terms as Perl itself. =cut @@ -826,7 +862,7 @@ Catalyst Contributors, see Catalyst.pm =head1 COPYRIGHT -This library is free software, you can redistribute it and/or modify +This library is free software. You can redistribute it and/or modify it under the same terms as Perl itself. =cut @@ -906,7 +942,7 @@ Catalyst Contributors, see Catalyst.pm =head1 COPYRIGHT -This library is free software, you can redistribute it and/or modify +This library is free software. You can redistribute it and/or modify it under the same terms as Perl itself. =cut @@ -933,50 +969,74 @@ my $host = undef; my $port = $ENV{[% appenv %]_PORT} || $ENV{CATALYST_PORT} || 3000; my $keepalive = 0; my $restart = $ENV{[% appenv %]_RELOAD} || $ENV{CATALYST_RELOAD} || 0; -my $restart_delay = 1; -my $restart_regex = '(?:/|^)(?!\.#).+(?:\.yml$|\.yaml$|\.conf|\.pm)$'; -my $restart_directory = undef; -my $follow_symlinks = 0; + +my $check_interval; +my $file_regex; +my $watch_directory; +my $follow_symlinks; my @argv = @ARGV; GetOptions( 'debug|d' => \$debug, - 'fork' => \$fork, + 'fork|f' => \$fork, 'help|?' => \$help, 'host=s' => \$host, 'port=s' => \$port, 'keepalive|k' => \$keepalive, 'restart|r' => \$restart, - 'restartdelay|rd=s' => \$restart_delay, - 'restartregex|rr=s' => \$restart_regex, - 'restartdirectory=s@' => \$restart_directory, + 'restartdelay|rd=s' => \$check_interval, + 'restartregex|rr=s' => \$file_regex, + 'restartdirectory=s@' => \$watch_directory, 'followsymlinks' => \$follow_symlinks, ); pod2usage(1) if $help; -if ( $restart && $ENV{CATALYST_ENGINE} eq 'HTTP' ) { - $ENV{CATALYST_ENGINE} = 'HTTP::Restarter'; -} if ( $debug ) { $ENV{CATALYST_DEBUG} = 1; } -# This is require instead of use so that the above environment -# variables can be set at runtime. -require [% name %]; - -[% name %]->run( $port, $host, { - argv => \@argv, - 'fork' => $fork, - keepalive => $keepalive, - restart => $restart, - restart_delay => $restart_delay, - restart_regex => qr/$restart_regex/, - restart_directory => $restart_directory, - follow_symlinks => $follow_symlinks, -} ); +# If we load this here, then in the case of a restarter, it does not +# need to be reloaded for each restart. +require Catalyst; + +my $runner = sub { + # This is require instead of use so that the above environment + # variables can be set at runtime. + require [% name %]; + + [% name %]->run( + $port, $host, + { + argv => \@argv, + 'fork' => $fork, + keepalive => $keepalive, + } + ); +}; + +if ( $restart ) { + require Catalyst::Restarter; + + my %args; + $args{watch_directory} = $watch_directory + if defined $watch_directory; + $args{check_interval} = $check_interval + if defined $check_interval; + $args{file_regex} = qr/$file_regex/ + if defined $file_regex; + + my $restarter = Catalyst::Restarter->new( + %args, + restart_sub => $runner, + ); + + $restarter->run_and_watch; +} +else { + $runner->(); +} 1; @@ -1007,6 +1067,7 @@ require [% name %]; (defaults to '[SCRIPT_DIR]/..') -follow_symlinks follow symlinks in search directories (defaults to false. this is a no-op on Win32) + -background run the process in the background See also: perldoc Catalyst::Manual perldoc Catalyst::Manual::Intro @@ -1021,7 +1082,7 @@ Catalyst Contributors, see Catalyst.pm =head1 COPYRIGHT -This library is free software, you can redistribute it and/or modify +This library is free software. You can redistribute it and/or modify it under the same terms as Perl itself. =cut @@ -1075,7 +1136,7 @@ Catalyst Contributors, see Catalyst.pm =head1 COPYRIGHT -This library is free software, you can redistribute it and/or modify +This library is free software. You can redistribute it and/or modify it under the same terms as Perl itself. =cut @@ -1086,7 +1147,7 @@ use strict; use warnings; use Getopt::Long; use Pod::Usage; -eval "use Catalyst::Devel;"; +eval "use Catalyst::Helper;"; if ($@) { die <