Use REST::ForBrowsers action class

[catagits/CatalystX-Routes.git] / t / lib / MyApp1 / Controller / C1.pm

diff --git a/t/lib/MyApp1/Controller/C1.pm b/t/lib/MyApp1/Controller/C1.pm
index 9aeaba7..0646229 100644 (file)
--- a/t/lib/MyApp1/Controller/C1.pm
+++ b/t/lib/MyApp1/Controller/C1.pm
@@ -3,13 +3,15 @@ package MyApp1::Controller::C1;
 use Moose;
 use CatalystX::Routes;
 
-extends 'Catalyst::Controller';
+BEGIN { extends 'Catalyst::Controller' }
 
-sub _get      { }
-sub _get_html { }
-sub _post     { }
-sub _put      { }
-sub _del      { }
+our %REQ;
+
+sub _get      { $REQ{get}++ }
+sub _get_html { $REQ{get_html}++ }
+sub _post     { $REQ{post}++ }
+sub _put      { $REQ{put}++ }
+sub _del      { $REQ{delete}++ }
 
 get '/foo' => \&_get;
 
@@ -21,4 +23,18 @@ put '/foo' => \&_put;
 
 del '/foo' => \&_del;
 
+get 'bar'=> \&_get;
+
+get_html 'bar'=> \&_get_html;
+
+post 'bar'=> \&_post;
+
+put 'bar'=> \&_put;
+
+del 'bar'=> \&_del;
+
+sub normal : Chained('/') : Args(0) {
+    $REQ{normal}++;
+}
+
 1;