4 use HTTP::Request::Common;
7 package MyApp::Controller::Root;
8 $INC{'MyApp/Controller/Root.pm'} = __FILE__;
11 use MooseX::MethodAttributes;
13 extends 'Catalyst::Controller';
15 sub an_int :Local Args(Int) {
16 my ($self, $c, $int) = @_;
17 #use Devel::Dwarn; Dwarn $self;
18 $c->res->body('an_int');
21 sub default :Default {
22 my ($self, $c, $int) = @_;
23 $c->res->body('default');
26 MyApp::Controller::Root->config(namespace=>'');
34 use Catalyst::Test 'MyApp';
37 my $res = request '/an_int/1';
38 is $res->content, 'an_int';
42 my $res = request '/an_int/aa';
43 is $res->content, 'default';