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

[ferz at dev.catalyst.perl.org]

Author: ferz
Date: 2009-07-07 16:37:25 +0000 (Tue, 07 Jul 2009)
New Revision: 10816

Modified:
   trunk/misc/exception_test_case_simplest/lib/TestAppClassException.pm
Log:
Drop unused file and stripped to many %classes not used for this test.


Modified: trunk/misc/exception_test_case_simplest/lib/TestAppClassException.pm
===================================================================
--- trunk/misc/exception_test_case_simplest/lib/TestAppClassException.pm	2009-07-07 15:54:06 UTC (rev 10815)
+++ trunk/misc/exception_test_case_simplest/lib/TestAppClassException.pm	2009-07-07 16:37:25 UTC (rev 10816)
@@ -39,7 +39,6 @@
 use HTTP::Headers ();
 use HTTP::Status  ();
 use Scalar::Util  qw( blessed );
-#use parent 'Exception::Class';
 
 sub headers {
     my $self    = shift;
@@ -95,7 +94,6 @@
 }
 
 sub status_line {
-    $DB::single=1;
     return sprintf "%s %s", $_[0]->status, $_[0]->status_message;
 }
 
@@ -119,7 +117,7 @@
 
 sub as_public_html {
     my $self    = shift;
-    $DB::single=1;
+
     my $title   = shift || $self->status_line;
     my $header  = shift || $self->status_message;
     my $message = shift || $self->public_message;
@@ -248,9 +246,7 @@
 
 sub finalize {
     my ( $c ) = shift;
-    $DB::single=1;
     $c->handle_exception if @{ $c->error };
-
     $c->maybe::next::method( @_ );
 }
 
@@ -259,7 +255,6 @@
     my $error = $c->error->[ 0 ];
 
     $c->log->debug("baseurl:" . $c->stash->{baseurl});
-    $DB::single=1;
 
     if( ! Scalar::Util::blessed( $error ) or !$error->isa( 'TestAppClassException::Exception' ) ) {
         $error = TestAppClassException::Exception->new( message => "$error" );