From: Shawn M Moore <code@sartak.org>
Date: Fri, 15 Jun 2012 18:10:41 +0000 (-0500)
Subject: Add a Moose::Exception class for future-proofing, etc
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f1a1c23e0014d3f9572e129189858df4196e798c;p=gitmo%2FMoose.git

Add a Moose::Exception class for future-proofing, etc
---

diff --git a/lib/Moose/Exception.pm b/lib/Moose/Exception.pm
new file mode 100644
index 0000000..88db761
--- /dev/null
+++ b/lib/Moose/Exception.pm
@@ -0,0 +1,10 @@
+package Moose::Exception;
+use Moose;
+extends 'Throwable::Error';
+
+
+
+__PACKAGE__->meta->make_immutable;
+no Moose;
+1;
+
diff --git a/lib/Moose/Util.pm b/lib/Moose/Util.pm
index 2658ec8..a124283 100644
--- a/lib/Moose/Util.pm
+++ b/lib/Moose/Util.pm
@@ -478,7 +478,7 @@ sub throw {
 
     my %args = @_;
 
-    my $superclass = delete($args{superclass}) || 'Throwable::Error';
+    my $superclass = delete($args{superclass}) || 'Moose::Exception';
     my $roles = delete($args{roles});
 
     my $metaclass;