4 use HTTP::Request::Common;
6 # In DEBUG mode, we get not a number warnigs
11 package MyApp::Controller::Root;
12 $INC{'MyApp/Controller/Root.pm'} = __FILE__;
14 use base 'Catalyst::Controller';
16 sub root :Chained(/) PathPrefix CaptureArgs(0) { }
18 sub test :Chained(root) Args('"Int"') {
20 $c->response->body("This is the body");
23 sub infinity :Chained(root) PathPart('test') Args {
25 $c->response->body("This is the body");
26 Test::More::is $c->action->normalized_arg_number, ~0;
29 sub local :Local Args {
31 $c->response->body("This is the body");
32 Test::More::is $c->action->normalized_arg_number, ~0;
41 $SIG{__WARN__} = sub { $error = shift };
46 use Catalyst::Test 'MyApp';
48 request GET '/root/test/a/b/c';
49 request GET '/root/local/a/b/c';
52 unlike($error, qr[Argument ""Int"" isn't numeric in repeat]);