use FindBin;
use Template;
use Catalyst;
+use Catalyst::Exception;
my %cache;
my @args = @_;
my $class = "Catalyst::Helper::$helper";
eval "require $class";
- die qq/Couldn't load helper "$class", "$@"/ if $@;
+
+ if ( $@ ) {
+ Catalyst::Exception->throw(
+ message => qq/Couldn't load helper "$class", "$@"/
+ );
+ }
+
if ( $class->can('mk_stuff') ) {
return 1 unless $class->mk_stuff( $self, @args );
}
$comp = 'Controller' if $type eq 'C';
my $class = "Catalyst::Helper::$comp\::$helper";
eval "require $class";
- die qq/Couldn't load helper "$class", "$@"/ if $@;
+
+ if ( $@ ) {
+ Catalyst::Exception->throw(
+ message => qq/Couldn't load helper "$class", "$@"/
+ );
+ }
+
if ( $class->can('mk_compclass') ) {
return 1 unless $class->mk_compclass( $self, @args );
}
print qq/created "$dir"\n/;
return 1;
}
- die qq/Couldn't create "$dir", "$!"/;
+
+ Catalyst::Exception->throw(
+ message => qq/Couldn't create "$dir", "$!"/
+ );
}
=head3 mk_file
print qq/created "$file"\n/;
return 1;
}
- die qq/Couldn't create "$file", "$!"/;
+
+ Catalyst::Exception->throw(
+ message => qq/Couldn't create "$file", "$!"/
+ );
}
=head3 next_test
$prefix = $prefix;
$tname = $prefix . '.t';
$self->{prefix} = $prefix;
+ $prefix = lc $prefix;
+ $prefix =~ s/-/\//g;
+ $self->{uri} = $prefix;
}
my $dir = $self->{test_dir};
my $type = $self->{type};
package [% name %];
use strict;
-use Catalyst qw/-Debug/;
+use base 'Catalyst';
our $VERSION = '0.01';
[% name %]->config( name => '[% name %]' );
-[% name %]->setup;
+[% name %]->setup( qw/-Debug/ );
=head1 NAME
}
=back
-
[% END %]
=head1 AUTHOR
use_ok( Catalyst::Test, '[% app %]' );
use_ok('[% class %]');
-ok( request('[% prefix %]')->is_success );
+ok( request('[% uri %]')->is_success );
[% ELSE %]
use Test::More tests => 1;
use_ok('[% class %]');