From: Jesse Luehrs <doy@tozt.net>
Date: Fri, 22 Apr 2011 03:25:33 +0000 (-0500)
Subject: roles don't have throw_error
X-Git-Tag: 2.0001~6
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1ea29c34cb8aca879e9f44ee7c4962208c844850;p=gitmo%2FMoose.git

roles don't have throw_error
---

diff --git a/lib/Moose/Meta/Role.pm b/lib/Moose/Meta/Role.pm
index 33f6347..4aa0b4b 100644
--- a/lib/Moose/Meta/Role.pm
+++ b/lib/Moose/Meta/Role.pm
@@ -523,7 +523,7 @@ sub create {
             if exists $options{methods};
 
     (ref $options{roles} eq 'ARRAY')
-        || $class->throw_error("You must pass an ARRAY ref of roles", data => $options{roles})
+        || confess "You must pass an ARRAY ref of roles"
             if exists $options{roles};
 
     my $package      = delete $options{package};