lets see if we can silence the error strawberry perl is upchucking
[catagits/Catalyst-Runtime.git] / t / lib / TestAppArgsEmptyParens.pm
1 package TestAppArgsEmptyParens::Controller::Root;
2 $INC{'TestAppArgsEmptyParens/Controller/Root.pm'} = __FILE__;
3 use Moose;
4 use MooseX::MethodAttributes;
5
6 extends 'Catalyst::Controller';
7
8 sub chain_base :Chained(/) PathPart('chain_base') CaptureArgs(0) { }
9
10     sub args        : Chained(chain_base) PathPart('args')       Args   { $_[1]->res->body('Args') }
11     sub args_empty  : Chained(chain_base) PathPart('args_empty') Args() { $_[1]->res->body('Args()') }
12
13 TestAppArgsEmptyParens::Controller::Root->config(namespace=>'');
14
15 package TestAppArgsEmptyParens;
16 $INC{'TestAppArgsEmptyParens.pm'} = __FILE__;
17
18 use Catalyst;
19 use TestLogger;
20
21 TestAppArgsEmptyParens->setup;
22 TestAppArgsEmptyParens->log( TestLogger->new );
23
24 1;