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