projects
/
gitmo/Class-MOP.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
5c9f9fb15d28adf775f982c37d1a21b4808e220e
[gitmo/Class-MOP.git]
/
bench
/
lib
/
MOP
/
Immutable
/
Point3D.pm
1
2
package MOP::Immutable::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
__PACKAGE__->meta->make_immutable;
19
20
1;
21
22
__END__