default to rethrowing under development env

plack · Jun 15, 2011 · 5db3bd7 · 5db3bd7
1 parent 990fa45
commit 5db3bd7
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/lib/Plack/Middleware/HTTPExceptions.pm b/lib/Plack/Middleware/HTTPExceptions.pm
@@ -8,6 +8,11 @@ use Try::Tiny;
 use Scalar::Util 'blessed';
 use HTTP::Status ();
 
+sub prepare_app {
+    my $self = shift;
+    $self->rethrow(1) if ($ENV{PLACK_ENV} || '') eq 'development';
+}
+
 sub call {
     my($self, $env) = @_;