Changeset 26183 for lang/perl/CGI-ExceptionManager/branches/he/lib/CGI/ExceptionManager.pm

Timestamp:

12/09/08 14:56:58 (4 years ago)

Author:

tokuhirom

Message:

support HTTP::Engine

Files:

• lang/perl/CGI-ExceptionManager/branches/he/lib/CGI/ExceptionManager.pm (modified) (2 diffs)

lang/perl/CGI-ExceptionManager/branches/he/lib/CGI/ExceptionManager.pm

@@ -20 +20 @@
             undef $err_info;
         } else {
-            unless ($stacktrace_required) {
-                require CGI::ExceptionManager::StackTrace;
-                $stacktrace_required = 1;
+            my $st_class = 'CGI::ExceptionManager::StackTrace::' . ($args{stacktrace_class} || 'CGI');
+            unless ($stacktrace_required->{$st_class}) {
+                (my $s = "$st_class\.pm") =~ s!::!/!g;
+                require $s;
+                $stacktrace_required->{$st_class} = 1;
             }
-            $err_info = CGI::ExceptionManager::StackTrace->new($msg);
+            $err_info = $st_class->new($msg);
         }
         die $msg;
@@ -34 +36 @@
     };
     if ($err_info) {
-        $err_info->output(
+        $response = $err_info->output(
             powered_by => $args{powered_by} || __PACKAGE__,
             ($args{renderer} ? (renderer => $args{renderer}) : ())