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