X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=lib%2FMouse%2FMeta%2FAttribute.pm;h=ec752cb08aa0fc5b6ad5d2df7b4edebdadb281b8;hp=eccc881ebb427c5de07f7e36e5a14e65a59447a1;hb=53875581c2449e237cc1135b8c2cf1674a874aed;hpb=ea249879d28f5ce42afb95feeb7dcb6d37fcd241

diff --git a/lib/Mouse/Meta/Attribute.pm b/lib/Mouse/Meta/Attribute.pm
index eccc881..ec752cb 100644
--- a/lib/Mouse/Meta/Attribute.pm
+++ b/lib/Mouse/Meta/Attribute.pm
@@ -5,7 +5,7 @@ use warnings;
 use Carp ();
 use Scalar::Util qw(weaken);
 
-use Mouse::Util;
+use Mouse::Util qw(:meta);
 
 use Mouse::Meta::TypeConstraint;
 use Mouse::Meta::Method::Accessor;
@@ -153,16 +153,6 @@ sub new {
     return $instance
 }
 
-sub does {
-    my ($self, $role_name) = @_;
-    my $meta = Mouse::Meta::Class->initialize(ref($self) || $self);
-
-    (defined $role_name)
-        || $meta->throw_error("You must supply a role name to does()");
-
-    return $meta->does_role($role_name);
-};
-
 # readers
 
 sub name                 { $_[0]->{name}                   }