[Catalyst-commits] r10676 - Catalyst-Runtime/5.80/trunk/lib/Catalyst

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2009-06-26 15:28:14 +0000 (Fri, 26 Jun 2009)
New Revision: 10676

Modified:
   Catalyst-Runtime/5.80/trunk/lib/Catalyst/Exception.pm
Log:
Add a rethrow method to Exception.

Modified: Catalyst-Runtime/5.80/trunk/lib/Catalyst/Exception.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/lib/Catalyst/Exception.pm	2009-06-26 15:28:06 UTC (rev 10675)
+++ Catalyst-Runtime/5.80/trunk/lib/Catalyst/Exception.pm	2009-06-26 15:28:14 UTC (rev 10676)
@@ -57,9 +57,14 @@
 
     local $Carp::CarpLevel = 1;
 
-    croak($error);
+    croak $error;
 }
 
+sub rethrow {
+    my ($self) = @_;
+    croak $self;
+}
+
 =head2 meta
 
 Provided by Moose