Tidy
[gitmo/Mouse.git] / lib / Mouse / Meta / Attribute.pm
index eccc881..ec752cb 100644 (file)
@@ -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}                   }