view release on metacpan or  search on metacpan

t/01method.t  view on Meta::CPAN

   my $p = Point3->new( 1, 2, 3 );
   $p->$Point3::clearer();

   is( [ @$p ], [ 0, 0, 0 ],
      'anon method' );
}

# nested anon method (RT132321)
SKIP: {
   skip "This causes SEGV on perl 5.16 (RT132321)", 1 if $] lt "5.018";
   class RT132321 {
      field $_genvalue;

      BUILD {
         $_genvalue = method { 123 };
      }

      method value { $self->$_genvalue() }
   }