projects
/
gitmo/Class-MOP.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
1a8bf03f2dd1eac2b4743daf4fd2056d4bebd541
[gitmo/Class-MOP.git]
/
bench
/
lib
/
MOP
/
Installed
/
Point3D.pm
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();
17
$self->z(0);
18
}
19
20
1;
21
22
__END__