[gitmo/Class-MOP.git] / bench / 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
e0a82090	1
c0cbf4d9	2	use lib reverse @INC;
	3
	4	package MOP::Installed::Point3D;
e0a82090	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();
	17	$self->z(0);
	18	}
	19
	20	1;
	21
	22	__END__