X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Flib%2FTestApp%2FActionRole%2FTestMatchCaptures.pm;fp=t%2Flib%2FTestApp%2FActionRole%2FTestMatchCaptures.pm;h=3695ffe4bf2541622373cd479d5b6008f27e099b;hp=0000000000000000000000000000000000000000;hb=1279064aaba5218247db3d0e49215802187ee41e;hpb=9a511413536c9abfedae803aa0058e875ae358ac

diff --git a/t/lib/TestApp/ActionRole/TestMatchCaptures.pm b/t/lib/TestApp/ActionRole/TestMatchCaptures.pm
new file mode 100644
index 0000000..3695ffe
--- /dev/null
+++ b/t/lib/TestApp/ActionRole/TestMatchCaptures.pm
@@ -0,0 +1,17 @@
+package TestApp::ActionRole::TestMatchCaptures;
+
+use Moose::Role;
+use namespace::autoclean;
+
+sub match_captures {
+    my ($self, $c, $cap) = @_;
+    if ($cap->[0] eq 'force') {
+        $c->res->header( 'X-TestAppActionTestMatchCaptures', 'forcing' );
+        return 1;
+    } else {
+        $c->res->header( 'X-TestAppActionTestMatchCaptures', 'fallthrough' );
+        return 0;
+    }
+}
+
+1;
\ No newline at end of file