[gitmo/Moose.git] / benchmarks / cmop / lib / MOP / Installed / Point3D.pm


use lib reverse @INC;

package MOP::Installed::Point3D;

use strict;
use warnings;
use metaclass;

use base 'MOP::Point';

__PACKAGE__->meta->add_attribute('z' => (accessor => 'z'));

sub clear {
    my $self = shift;
    $self->SUPER::clear();
    $self->z(0);
}

1;

__END__
Commit	Line	Data
38bf2a25	1
	2	use lib reverse @INC;
	3
	4	package MOP::Installed::Point3D;
	5
	6	use strict;
	7	use warnings;
	8	use metaclass;
	9
	10	use base 'MOP::Point';
	11
	12	__PACKAGE__->meta->add_attribute('z' => (accessor => 'z'));
	13
	14	sub clear {
	15	my $self = shift;
	16	$self->SUPER::clear();
064a13a3	17	$self->z(0);
38bf2a25	18	}
	19
	20	1;
	21
064a13a3	22	__END__