projects
/
gitmo/Moose.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
0287499e38004261826ddc6037301e30cdf6d4de
[gitmo/Moose.git]
/
benchmarks
/
cmop
/
lib
/
MOP
/
Point3D.pm
1
2
package MOP::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
1;
19
20
__END__