[Catalyst-commits] r10828 - trunk/misc/exception_test_case_simplest/lib

ferz at dev.catalyst.perl.org ferz at dev.catalyst.perl.org
Wed Jul 8 15:09:13 GMT 2009


Author: ferz
Date: 2009-07-08 15:09:13 +0000 (Wed, 08 Jul 2009)
New Revision: 10828

Modified:
   trunk/misc/exception_test_case_simplest/lib/TestAppClassException.pm
Log:
Slimmed down enough.


Modified: trunk/misc/exception_test_case_simplest/lib/TestAppClassException.pm
===================================================================
--- trunk/misc/exception_test_case_simplest/lib/TestAppClassException.pm	2009-07-08 09:10:00 UTC (rev 10827)
+++ trunk/misc/exception_test_case_simplest/lib/TestAppClassException.pm	2009-07-08 15:09:13 UTC (rev 10828)
@@ -9,7 +9,6 @@
     my %classes = (
         'TestAppClassException::Exception' => {
             description => 'Generic exception',
-            fields      => [ qw( status ) ],
             alias       => 'throw'
         },
     );
@@ -35,9 +34,7 @@
 use HTTP::Headers ();
 use HTTP::Status  ();
 use Scalar::Util  qw( blessed );
-#use parent 'Exception::Class';
 
-
 sub status {
     return $_[0]->{status} ||= 500;
 }
@@ -49,10 +46,13 @@
 use strict;
 use warnings;
 
+
+#use TestAppClassException::Exceptions;
+
 use Scalar::Util ();
 use Catalyst::Runtime '5.80';
 
-use Catalyst qw/ /;
+use Catalyst qw/ -Debug /;
 
 our $VERSION = '0.02';
 
@@ -86,5 +86,4 @@
 
 =cut
 
-
 1;




More information about the Catalyst-commits mailing list