[gitmo/Moose.git] / t / cmop / 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
38bf2a25	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;