Add a rethrow method to Exception.

diff --git a/lib/Catalyst/Exception.pm b/lib/Catalyst/Exception.pm
index b5b5bc3..6956f0e 100644 (file)
--- a/lib/Catalyst/Exception.pm
+++ b/lib/Catalyst/Exception.pm
@@ -57,7 +57,12 @@ sub throw {
 
     local $Carp::CarpLevel = 1;
 
-    croak($error);
+    croak $error;
+}
+
+sub rethrow {
+    my ($self) = @_;
+    croak $self;
 }
 
 =head2 meta