projects
/
gitmo/Moose.git
/ blame
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blob
|
history
|
HEAD
Merged CMOP into Moose
[gitmo/Moose.git]
/
benchmarks
/
cmop
/
lib
/
MOP
/
Point3D.pm
Commit
Line
Data
38bf2a25
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__