t/lib/Test/Catalyst/Action/REST/Controller/Actions.pm

   1 package Test::Catalyst::Action::REST::Controller::Actions;
   2 use Moose;
   3 use namespace::autoclean;
   4
   5 BEGIN { extends qw/Catalyst::Controller::REST/ }
   6
   7 __PACKAGE__->_action_class('Test::Action::Class');
   8
   9 sub begin {}  # Don't need serialization..
  10
  11 sub test : Local : ActionClass('+Catalyst::Action::REST') {
  12     my ( $self, $c ) = @_;
  13     $c->res->header('X-Was-In-TopLevel', 1);
  14 }
  15
  16 sub test_GET : Private {
  17     my ( $self, $c ) = @_;
  18     $c->res->body('GET');
  19 }
  20
  21 sub test_POST : Action {
  22     my ( $self, $c ) = @_;
  23     $c->res->body('POST');
  24 }
  25
  26 sub test_PUT :ActionClass('+Test::Action::Class') {
  27     my ( $self, $c ) = @_;
  28     $c->res->body('PUT');
  29 }
  30
  31 sub test_DELETE : Local {
  32     my ( $self, $c ) = @_;
  33     $c->res->body('DELETE');
  34 }
  35
  36 sub test_OPTIONS : Path('foobar') {
  37     my ( $self, $c ) = @_;
  38
  39     $c->res->body('OPTIONS');
  40 }
  41
  42 sub end : Private {} # Don't need serialization..
  43
  44 1;
  45