X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMoose%2FUtil.pm;h=28ec30fd9b3ed5348beb6540f0597ccd545849d0;hb=2c06871b8fbea43126d1a9bd86da7b9cd0aaf39c;hp=967ad598354e20d4236d240bc802e927aacb0bf9;hpb=883c60be76090fdc542dd6eabd29b2b47b6c82bc;p=gitmo%2FMoose.git

diff --git a/lib/Moose/Util.pm b/lib/Moose/Util.pm
index 967ad59..28ec30f 100644
--- a/lib/Moose/Util.pm
+++ b/lib/Moose/Util.pm
@@ -480,10 +480,11 @@ sub throw {
         %args = @_;
     }
 
+    my $superclasses = delete($args{superclasses}) || ['Throwable::Error'];
     my $roles = delete($args{roles});
 
     my $metaclass = Moose::Meta::Class->create_anon_class(
-        superclasses => ['Throwable::Error'],
+        superclasses => $superclasses,
         ($roles ? (roles => $roles) : ()),
     );