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 $c->res->body('an_int');
20 sub many_ints :Local Args(ArrayRef[Int]) {
21 my ($self, $c, $int) = @_;
22 $c->res->body('many_ints');
25 sub default :Default {
26 my ($self, $c, $int) = @_;
27 $c->res->body('default');
30 MyApp::Controller::Root->config(namespace=>'');
38 use Catalyst::Test 'MyApp';
41 my $res = request '/an_int/1';
42 is $res->content, 'an_int';
46 my $res = request '/many_ints/1';
47 is $res->content, 'many_ints';
51 my $res = request '/many_ints/1/2';
52 is $res->content, 'many_ints';
56 my $res = request '/many_ints/1/2/3';
57 is $res->content, 'many_ints';
61 my $res = request '/many_ints/1/2/a';
62 is $res->content, 'default';
66 my $res = request '/an_int/aa';
67 is $res->content, 'default';