massive updates to the way immutable works to fix a big ish bug, please see new comme...

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

diff --git a/t/lib/MyMetaClass.pm b/t/lib/MyMetaClass.pm
index 7638ace..0c060cd 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->compute_all_applicable_attributes;
+}
+
 1;