From: Florian Ragwitz <rafl@debian.org>
Date: Fri, 26 Jun 2009 15:28:14 +0000 (+0000)
Subject: Add a rethrow method to Exception.
X-Git-Tag: 5.80006~27
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=44b74e6a6e88f3a3e2d320100edf4b84980b7c60

Add a rethrow method to Exception.
---

diff --git a/lib/Catalyst/Exception.pm b/lib/Catalyst/Exception.pm
index b5b5bc3..6956f0e 100644
--- 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