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