$self->{appprefix} = lc $self->{dir};
$self->{appprefix} =~ s/-/_/g;
$self->{startperl} = $Config{startperl};
- $self->{scriptgen} = $Catalyst::CATALYST_SCRIPT_GEN;
+ $self->{scriptgen} = $Catalyst::CATALYST_SCRIPT_GEN || 4;
$self->{author} = $self->{author} = $ENV{'AUTHOR'}
|| eval { @{ [ getpwuid($<) ] }[6] }
|| 'Catalyst developer';
print qq/ exists "$dir"\n/;
return 0;
}
- if ( mkpath $dir) {
+ if ( mkpath [$dir] ) {
print qq/created "$dir"\n/;
return 1;
}
package [% name %];
use strict;
-use base 'Catalyst';
+use Catalyst qw/-Debug/;
our $VERSION = '0.01';
[% name %]->config( name => '[% name %]' );
-[% name %]->setup( qw/-Debug/ );
+[% name %]->setup;
=head1 NAME
}
=back
+
[% END %]
=head1 AUTHOR