If you pass no roles, just instantiate the superclass.

    I feel like I want MooseX::ClassCompositor here.

diff --git a/lib/Moose/Util.pm b/lib/Moose/Util.pm
index 28ec30f..5e0e99d 100644 (file)
--- a/lib/Moose/Util.pm
+++ b/lib/Moose/Util.pm
@@ -480,13 +480,20 @@ sub throw {
         %args = @_;
     }
 
-    my $superclasses = delete($args{superclasses}) || ['Throwable::Error'];
+    my $superclass = delete($args{superclass}) || 'Throwable::Error';
     my $roles = delete($args{roles});
 
-    my $metaclass = Moose::Meta::Class->create_anon_class(
-        superclasses => $superclasses,
-        ($roles ? (roles => $roles) : ()),
-    );
+    my $metaclass;
+
+    if ($roles) {
+        $metaclass = Moose::Meta::Class->create_anon_class(
+            superclasses => [$superclass],
+            roles        => $roles,
+        );
+    }
+    else {
+        $metaclass = Moose::Meta::Class->initialize($superclass);
+    }
 
     $metaclass->name->throw(\%args);
 }