make the constructor a bit more extensible

[gitmo/Class-MOP.git] / t / lib / MyMetaClass.pm

diff --git a/t/lib/MyMetaClass.pm b/t/lib/MyMetaClass.pm
index 7638ace..b70fe14 100644 (file)
--- 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;