[gitmo/Class-MOP.git] / bench / lib / MOP / Immutable / Point3D.pm


package MOP::Immutable::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);    
}

__PACKAGE__->meta->make_immutable;

1;

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