t/lib/TestApp/Action/TestMatchCaptures.pm

   1 package TestApp::Action::TestMatchCaptures;
   2
   3 use Moose;
   4
   5 extends 'Catalyst::Action';
   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;