package TestApp;
-use Catalyst;
+use Catalyst qw[-Engine=Test];
__PACKAGE__->action(
TestApp->action(
- '!?begin' => sub {
+ '!begin' => sub {
my ( $self, $c ) = @_;
$c->res->output('yada');
},
- '!?default' => sub { },
+ '!default' => sub { },
- '!?end' => sub {
+ '!end' => sub {
my ( $self, $c ) = @_;
$c->res->output('yada');
$c->res->output( $c->res->output . 'yada' );
use Catalyst::Test 'TestApp';
ok( get('/foo') =~ /foobar/ );
-ok( get('/foo_bar/foo') =~ /yadayada/ );
+ok( get('/foo/bar/foo') =~ /yadayada/ );