t/lib/TestApp/Controller/HTTPMethods.pm

   1 package TestApp::Controller::HTTPMethods;
   2
   3 use Moose;
   4 use MooseX::MethodAttributes;
   5
   6 extends 'Catalyst::Controller';
   7
   8 sub default : Path Args {
   9     my ($self, $ctx) = @_;
  10     $ctx->response->body('default');
  11 }
  12
  13 sub get : Path('foo') Method('GET') {
  14     my ($self, $ctx) = @_;
  15     $ctx->response->body('get');
  16 }
  17
  18 sub post : Path('foo') Method('POST') {
  19     my ($self, $ctx) = @_;
  20     $ctx->response->body('post');
  21 }
  22
  23 sub get_or_post : Path('bar') Method('GET') Method('POST') {
  24     my ($self, $ctx) = @_;
  25     $ctx->response->body('get or post');
  26 }
  27
  28 sub any_method : Path('baz') {
  29     my ($self, $ctx) = @_;
  30     $ctx->response->body('any');
  31 }
  32
  33 sub typo_option : Path('opt_typo') OPTION {
  34     my ($self, $ctx) = @_;
  35     $ctx->response->body('typo');
  36 }
  37
  38 sub real_options : Path('opt') OPTIONS {
  39     my ($self, $ctx) = @_;
  40     $ctx->response->body('options');
  41 }
  42
  43 sub base :Chained('/') PathPrefix CaptureArgs(0) { }
  44
  45 sub chained_get :Chained('base') Args(0) GET {
  46     pop->res->body('chained_get');
  47 }
  48
  49 sub chained_post :Chained('base') Args(0) POST {
  50     pop->res->body('chained_post');
  51 }
  52
  53 sub chained_put :Chained('base') Args(0) PUT {
  54     pop->res->body('chained_put');
  55 }
  56
  57 sub chained_delete :Chained('base') Args(0) DELETE {
  58     pop->res->body('chained_delete');
  59 }
  60
  61 sub get_or_put :Chained('base') PathPart('get_put_post_delete') CaptureArgs(0) GET PUT { }
  62
  63 sub get2 :Chained('get_or_put') PathPart('') Args(0) GET {
  64     pop->res->body('get2');
  65 }
  66
  67 sub put2 :Chained('get_or_put') PathPart('') Args(0) PUT {
  68     pop->res->body('put2');
  69 }
  70
  71 sub post_or_delete :Chained('base') PathPart('get_put_post_delete') CaptureArgs(0) POST DELETE { }
  72
  73 sub post2 :Chained('post_or_delete') PathPart('') Args(0) POST {
  74     pop->res->body('post2');
  75 }
  76
  77 sub delete2 :Chained('post_or_delete') PathPart('') Args(0) DELETE {
  78     pop->res->body('delete2');
  79 }
  80
  81 sub check_default :Chained('base') CaptureArgs(0) { }
  82
  83 sub chain_default :Chained('check_default') PathPart('') Args(0) {
  84     pop->res->body('chain_default');
  85 }
  86
  87 sub default_get :Chained('check_default') PathPart('') Args(0) GET {
  88     pop->res->body('get3');
  89 }
  90
  91 sub default_post :Chained('check_default') PathPart('') Args(0) POST {
  92     pop->res->body('post3');
  93 }
  94
  95
  96
  97 __PACKAGE__->meta->make_immutable;