t/live/lib/TestApp/Controller/Engine/Response/Errors.pm

   1 package TestApp::Controller::Engine::Response::Errors;
   2
   3 use strict;
   4 use base 'Catalyst::Base';
   5
   6 sub one : Relative {
   7     my ( $self, $c ) = @_;
   8     my $a = 0;
   9     my $b = 0;
  10     my $t = $a / $b;
  11 }
  12
  13 sub two : Relative {
  14     my ( $self, $c ) = @_;
  15     $c->forward('/non/existing/path');
  16 }
  17
  18 sub three : Relative {
  19     my ( $self, $c ) = @_;
  20     die("I'm going to die!\n");
  21 }
  22
  23 1;