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