From: ilmari <ilmari@bd8105ee-0ff8-0310-8827-fb3f25b6796d>
Date: Tue, 29 Jul 2008 19:04:22 +0000 (+0000)
Subject: Allow exception objects.
X-Git-Tag: v1.003015~81
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=462bad8fb094b4c778abd9b6be041145db2d6e14;p=p5sagit%2FDevel-REPL.git

Allow exception objects.


git-svn-id: http://dev.catalyst.perl.org/repos/bast/trunk/Devel-REPL@4669 bd8105ee-0ff8-0310-8827-fb3f25b6796d
---

diff --git a/lib/Devel/REPL/Error.pm b/lib/Devel/REPL/Error.pm
index b28d5b5..ac7bc05 100644
--- a/lib/Devel/REPL/Error.pm
+++ b/lib/Devel/REPL/Error.pm
@@ -12,7 +12,7 @@ has type => (
 );
 
 has message => (
-  isa => "Str",
+  isa => "Str|Object",
   is  => "ro",
   required => 1,
 );