allow HTTPExceptions to optionally rethrow the exception

audreyt · Jun 15, 2011 · 990fa45 · 990fa45
1 parent 0cf44ef
commit 990fa45
Showing 1 changed file with 8 additions and 2 deletions.
diff --git a/lib/Plack/Middleware/HTTPExceptions.pm b/lib/Plack/Middleware/HTTPExceptions.pm
@@ -1,6 +1,7 @@
 package Plack::Middleware::HTTPExceptions;
 use strict;
 use parent qw(Plack::Middleware);
+use Plack::Util::Accessor qw(rethrow);
 
 use Carp ();
 use Try::Tiny;
@@ -46,8 +47,13 @@ sub transform_error {
             $e->can('as_string')       ? $e->as_string :
             overload::Method($e, '""') ? "$e"          : undef;
     } else {
-        $code = 500;
-        $env->{'psgi.errors'}->print($e);
+        if ($self->rethrow) {
+            die $e;
+        }
+        else {
+            $code = 500;
+            $env->{'psgi.errors'}->print($e);
+        }
     }
 
     if ($code !~ /^[3-5]\d\d$/) {