X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FTestAppClassExceptionSimpleTest.pm;h=aef61bed61aaa16c069d702c76de92f02af43a86;hb=2c64bc24ad4b80b5827de92c2338330b9ca42488;hp=0c452cebfbba146edc0d9f8bc23a88fef527e4a3;hpb=08f9c84867673a57d45bacbda7a301734a720fe7;p=catagits%2FCatalyst-Runtime.git

diff --git a/t/lib/TestAppClassExceptionSimpleTest.pm b/t/lib/TestAppClassExceptionSimpleTest.pm
index 0c452ce..aef61be 100644
--- a/t/lib/TestAppClassExceptionSimpleTest.pm
+++ b/t/lib/TestAppClassExceptionSimpleTest.pm
@@ -1,85 +1,19 @@
-package TestAppClassExceptionSimpleTest::Exceptions;
-
-use strict;
-use warnings;
-
-BEGIN {
-    $Catalyst::Exception::CATALYST_EXCEPTION_CLASS = 'TestAppClassExceptionSimpleTest::Exception';
-
-    my %classes = (
-        'TestAppClassExceptionSimpleTest::Exception' => {
-            description => 'Generic exception',
-            alias       => 'throw'
-        },
-    );
-
-    my @exports = grep { defined } map { $classes{ $_ }->{ alias } } keys %classes;
-
-    require Exception::Class;
-    require Sub::Exporter;
-
-    Exception::Class->import(%classes);
-    Sub::Exporter->import( -setup => { exports => \@exports  } );
-}
-
 package TestAppClassExceptionSimpleTest::Exception;
-
-## thank to Brian
-## http://bricas.vox.com/library/post/catalyst-exceptionclass.html
-
 use strict;
 use warnings;
-no warnings 'redefine';
-
-use HTTP::Headers ();
-use HTTP::Status  ();
-use Scalar::Util  qw( blessed );
 
-sub status {
-    return $_[0]->{status} ||= 500;
-}
+sub throw {}
 
 #########
 
 package TestAppClassExceptionSimpleTest;
-
 use strict;
 use warnings;
-use Scalar::Util ();
-use Catalyst::Runtime '5.80';
 
-use Catalyst qw/ -Debug /;
+BEGIN { $Catalyst::Exception::CATALYST_EXCEPTION_CLASS = 'TestAppClassExceptionSimpleTest::Exception'; }
 
-our $VERSION = '0.02';
+use Catalyst;
 
-# Start the application
 __PACKAGE__->setup;
 
-=head1 NAME
-
-TestAppClassExceptionSimpleTest - Catalyst based application
-
-=head1 SYNOPSIS
-
-    script/TestAppClassExceptionSipleTest_server.pl
-
-=head1 DESCRIPTION
-
-[enter your description here]
-
-=head1 SEE ALSO
-
-L<TestAppClassException::Controller::Root>, L<Catalyst>
-
-=head1 AUTHOR
-
-Ferruccio Zamuner
-
-=head1 LICENSE
-
-This library is free software, you can redistribute it and/or modify
-it under the same terms as Perl itself.
-
-=cut
-
 1;