3 use Catalyst qw[-Engine=Test];
5 sub default : Private {
7 $c->res->output('bar');
12 package TestApp::C::Foo::Bar;
14 use base 'Catalyst::Base';
16 sub default : Private {
17 my ( $self, $c ) = @_;
18 $c->res->output('yada');
23 use Test::More tests => 2;
24 use Catalyst::Test 'TestApp';
26 ok( get('/foo') =~ /bar/ );
27 ok( get('/foo/bar/foo') =~ /yada/ );