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