X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Flib%2FTestApp%2FController%2FHTTPMethods.pm;fp=t%2Flib%2FTestApp%2FController%2FHTTPMethods.pm;h=b78477589a428f1f2eadbc05275e068917f73120;hp=5d428581d6962d2127534a3e13319d83d61f3cd3;hb=88e5a8b0c4d28e46b8ba6b6b9567063e57af9063;hpb=9868e0a0023cc8b598d60f150ea367e0056a65f3 diff --git a/t/lib/TestApp/Controller/HTTPMethods.pm b/t/lib/TestApp/Controller/HTTPMethods.pm index 5d42858..b784775 100644 --- a/t/lib/TestApp/Controller/HTTPMethods.pm +++ b/t/lib/TestApp/Controller/HTTPMethods.pm @@ -2,29 +2,29 @@ package TestApp::Controller::HTTPMethods; use Moose; use MooseX::MethodAttributes; - + extends 'Catalyst::Controller'; - + sub default : Path Args { my ($self, $ctx) = @_; $ctx->response->body('default'); } - + sub get : Path('foo') Method('GET') { my ($self, $ctx) = @_; $ctx->response->body('get'); } - + sub post : Path('foo') Method('POST') { my ($self, $ctx) = @_; $ctx->response->body('post'); } - + sub get_or_post : Path('bar') Method('GET') Method('POST') { my ($self, $ctx) = @_; $ctx->response->body('get or post'); } - + sub any_method : Path('baz') { my ($self, $ctx) = @_; $ctx->response->body('any'); @@ -63,7 +63,7 @@ sub get_or_put :Chained('base') PathPart('get_put_post_delete') CaptureArgs(0) G sub get2 :Chained('get_or_put') PathPart('') Args(0) GET { pop->res->body('get2'); } - + sub put2 :Chained('get_or_put') PathPart('') Args(0) PUT { pop->res->body('put2'); } @@ -73,7 +73,7 @@ sub post_or_delete :Chained('base') PathPart('get_put_post_delete') CaptureArgs( sub post2 :Chained('post_or_delete') PathPart('') Args(0) POST { pop->res->body('post2'); } - + sub delete2 :Chained('post_or_delete') PathPart('') Args(0) DELETE { pop->res->body('delete2'); }