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

   1 package Test::Catalyst::Action::REST::Controller::ActionsForBrowsers;
   2 use Moose;
   3 use namespace::autoclean;
   4
   5 BEGIN { extends qw/Catalyst::Controller::REST/ }
   6
   7 sub begin {}  # Don't need serialization..
   8
   9 sub for_browsers : Local : ActionClass('REST::ForBrowsers') {
  10     my ( $self, $c ) = @_;
  11     $c->res->header('X-Was-In-TopLevel', 1);
  12 }
  13
  14 sub for_browsers_GET : Private {
  15     my ( $self, $c ) = @_;
  16     $c->res->body('GET');
  17 }
  18
  19 sub for_browsers_GET_html : Private {
  20     my ( $self, $c ) = @_;
  21     $c->res->body('GET_html');
  22 }
  23
  24 sub for_browsers_POST : Private {
  25     my ( $self, $c ) = @_;
  26     $c->res->body('POST');
  27 }
  28
  29 sub end : Private {} # Don't need serialization..
  30
  31 1;
  32