t/lib/TestApp/Controller/Action/Auto/Abort.pm

   1 package TestApp::Controller::Action::Auto::Abort;
   2
   3 use strict;
   4 use base 'TestApp::Controller::Action';
   5
   6 sub auto : Private {
   7     my ( $self, $c ) = @_;
   8     return 0;
   9 }
  10
  11 sub default : Private {
  12     my ( $self, $c ) = @_;
  13     $c->res->body( 'abort default' );
  14 }
  15
  16 sub end : Private {
  17     my ( $self, $c ) = @_;
  18     $c->res->body( 'abort end' ) unless $c->res->body;
  19 }
  20
  21 sub one : Local {
  22     my ( $self, $c ) = @_;
  23     $c->res->body( 'abort one' );
  24 }
  25
  26 1;