1 package TestAppClassExceptionSimpleTest::Exceptions;
7 $Catalyst::Exception::CATALYST_EXCEPTION_CLASS = 'TestAppClassExceptionSimpleTest::Exception';
10 'TestAppClassExceptionSimpleTest::Exception' => {
11 description => 'Generic exception',
16 my @exports = grep { defined } map { $classes{ $_ }->{ alias } } keys %classes;
18 require Exception::Class;
19 require Sub::Exporter;
21 Exception::Class->import(%classes);
22 Sub::Exporter->import( -setup => { exports => \@exports } );
25 package TestAppClassExceptionSimpleTest::Exception;
29 no warnings 'redefine';
33 use Scalar::Util qw( blessed );
36 return $_[0]->{status} ||= 500;
41 package TestAppClassExceptionSimpleTest;
46 use Catalyst::Runtime '5.80';
48 use Catalyst qw/ -Debug /;
50 our $VERSION = '0.02';