Commit | Line | Data |
---|---|---|
ca5d34df | 1 | package TestApp::Action::TestMatchCaptures; |
1279064a | 2 | |
ca5d34df | 3 | use Moose; |
4 | ||
5 | extends 'Catalyst::Action'; | |
1279064a | 6 | |
7 | sub match_captures { | |
8 | my ($self, $c, $cap) = @_; | |
9 | if ($cap->[0] eq 'force') { | |
10 | $c->res->header( 'X-TestAppActionTestMatchCaptures', 'forcing' ); | |
11 | return 1; | |
12 | } else { | |
13 | $c->res->header( 'X-TestAppActionTestMatchCaptures', 'fallthrough' ); | |
14 | return 0; | |
15 | } | |
16 | } | |
17 | ||
18 | 1; |