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

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2009-06-26 15:26:56 +0000 (Fri, 26 Jun 2009)
New Revision: 10669

Modified:
   Catalyst-Runtime/5.80/trunk/lib/Catalyst/Exception.pm
Log:
Add a message attribute to Exception::Base.

Modified: Catalyst-Runtime/5.80/trunk/lib/Catalyst/Exception.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/lib/Catalyst/Exception.pm	2009-06-26 15:26:42 UTC (rev 10668)
+++ Catalyst-Runtime/5.80/trunk/lib/Catalyst/Exception.pm	2009-06-26 15:26:56 UTC (rev 10669)
@@ -34,6 +34,11 @@
 
 =cut
 
+has message => (
+    is  => 'ro',
+    isa => 'Str',
+);
+
 sub throw {
     my $class  = shift;
     my %params = @_ == 1 ? ( error => $_[0] ) : @_;