Changeset 26178 for lang/perl/CGI-ExceptionManager/trunk/lib/CGI/ExceptionManager.pm

Timestamp:

12/09/08 13:57:55 (4 years ago)

Author:

tokuhirom

Message:

return response value.

Files:

• lang/perl/CGI-ExceptionManager/trunk/lib/CGI/ExceptionManager.pm (modified) (4 diffs)

lang/perl/CGI-ExceptionManager/trunk/lib/CGI/ExceptionManager.pm

@@ -5 +5 @@
 our $VERSION = '0.03';
 
-sub detach { die bless [], 'CGI::ExceptionManager::Exception' }
+sub detach { die bless [@_], 'CGI::ExceptionManager::Exception' }
 
 my $stacktrace_required;
@@ -12 +12 @@
     my ($class, %args) = @_;
 
+    my $response;
     my $err_info;
     local $SIG{__DIE__} = sub {
         my ($msg) = @_;
         if (ref $msg eq 'CGI::ExceptionManager::Exception') {
+            $response = $msg->[0];
             undef $err_info;
         } else {
@@ -28 +30 @@
     local $@;
     eval {
-        $args{callback}->();
+        $response = $args{callback}->();
         undef $err_info;
     };
@@ -37 +39 @@
         );
     }
+    return $response;
 }