t/001_cmop/lib/MyMetaClass.pm

   1
   2 package MyMetaClass;
   3
   4 use strict;
   5 use warnings;
   6
   7 use base 'Class::MOP::Class';
   8
   9 sub mymetaclass_attributes{
  10   my $self = shift;
  11   return grep { $_->isa("MyMetaClass::Attribute") }
  12     $self->get_all_attributes;
  13 }
  14
  15 1;