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;
28 ## http://bricas.vox.com/library/post/catalyst-exceptionclass.html
32 no warnings 'redefine';
36 use Scalar::Util qw( blessed );
39 return $_[0]->{status} ||= 500;
44 package TestAppClassExceptionSimpleTest;
49 use Catalyst::Runtime '5.80';
51 use Catalyst qw/ -Debug /;
53 our $VERSION = '0.02';
55 # Start the application
60 TestAppClassExceptionSimpleTest - Catalyst based application
64 script/TestAppClassExceptionSipleTest_server.pl
68 [enter your description here]
72 L<TestAppClassException::Controller::Root>, L<Catalyst>
80 This library is free software, you can redistribute it and/or modify
81 it under the same terms as Perl itself.