bench/lib/MOP/Installed/Point3D.pm

   1
   2 use lib reverse @INC;
   3
   4 package MOP::Installed::Point3D;
   5
   6 use strict;
   7 use warnings;
   8 use metaclass;
   9
  10 use base 'MOP::Point';
  11
  12 __PACKAGE__->meta->add_attribute('z' => (accessor => 'z'));
  13
  14 sub clear {
  15     my $self = shift;
  16     $self->SUPER::clear();
  17     $self->z(0);
  18 }
  19
  20 1;
  21
  22 __END__