benchmarks/cmop/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__