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


package MyMetaClass;

use strict;
use warnings;

use base 'Class::MOP::Class';

sub mymetaclass_attributes{
  my $self = shift;
  return grep { $_->isa("MyMetaClass::Attribute") }
    $self->get_all_attributes;
}

1;
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") }
2620be77	12	$self->get_all_attributes;
04dd7510	13	}
04dd7510	14
95514cb4	15	1;