X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FMyMetaClass.pm;h=b70fe147bf4ca322a51e610f5c5821b7e7c8cf8d;hb=939ec2879f2eef695c063d980c47ecf5c6437481;hp=7638ace648cd21c2c3e0b050724e54dfff686230;hpb=95514cb4a1bc0120b516ee8a146c770e919432a3;p=gitmo%2FClass-MOP.git

diff --git a/t/lib/MyMetaClass.pm b/t/lib/MyMetaClass.pm
index 7638ace..b70fe14 100644
--- a/t/lib/MyMetaClass.pm
+++ b/t/lib/MyMetaClass.pm
@@ -6,4 +6,10 @@ use warnings;
 
 use base 'Class::MOP::Class';
 
+sub mymetaclass_attributes{
+  my $self = shift;
+  return grep { $_->isa("MyMetaClass::Attribute") }
+    $self->get_all_attributes;
+}
+
 1;