projects
/
gitmo/Class-MOP.git
/ blame
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blob
|
history
|
HEAD
foo
[gitmo/Class-MOP.git]
/
bench
/
lib
/
MOP
/
Point3D.pm
Commit
Line
Data
25803581
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__