X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flive%2Flib%2FTestApp%2FController%2FAction%2FAuto%2FAbort.pm;fp=t%2Flive%2Flib%2FTestApp%2FController%2FAction%2FAuto%2FAbort.pm;h=9a65aaccc6b2d4199ae785cce80b051cd26f9f96;hb=e1bf532b9461ab134abe5664a4438420f4eb33f5;hp=0000000000000000000000000000000000000000;hpb=d8c66af52b5353c93b1816e19c0f1cac69bc5ad1;p=catagits%2FCatalyst-Runtime.git

diff --git a/t/live/lib/TestApp/Controller/Action/Auto/Abort.pm b/t/live/lib/TestApp/Controller/Action/Auto/Abort.pm
new file mode 100644
index 0000000..9a65aac
--- /dev/null
+++ b/t/live/lib/TestApp/Controller/Action/Auto/Abort.pm
@@ -0,0 +1,26 @@
+package TestApp::Controller::Action::Auto::Abort;
+
+use strict;
+use base 'TestApp::Controller::Action';
+
+sub auto : Private {
+    my ( $self, $c ) = @_;
+    return 0;
+}
+
+sub default : Private {
+    my ( $self, $c ) = @_;
+    $c->res->body( 'abort default' );
+}
+
+sub end : Private {
+    my ( $self, $c ) = @_;
+    $c->res->body( 'abort end' ) unless $c->res->body;
+}
+
+sub one : Local {
+    my ( $self, $c ) = @_;
+    $c->res->body( 'abort one' );
+}
+
+1;