3 use Catalyst qw[-Engine=Test];
9 $c->res->output('foo');
12 '!default' => sub { },
15 my ( $self, $c ) = @_;
16 $c->res->output( $c->res->output . 'bar' );
21 package TestApp::C::Foo::Bar;
26 my ( $self, $c ) = @_;
27 $c->res->output('yada');
30 '!default' => sub { },
33 my ( $self, $c ) = @_;
34 $c->res->output('yada');
35 $c->res->output( $c->res->output . 'yada' );
42 use Test::More tests => 2;
43 use Catalyst::Test 'TestApp';
45 ok( get('/foo') =~ /foobar/ );
46 ok( get('/foo/bar/foo') =~ /yadayada/ );