view release on metacpan or  search on metacpan

t/21fields-capture.t  view on Meta::CPAN

   $inc->();
   $inc->();

   is( $counter->count, 2, '->count after invoking incrsub' );
}

# RT132249
{
   class Widget {
      field $_menu;
      method popup_menu {
         my $on_activate = sub { undef $_menu };
      }
      method on_mouse {
      }
   }

   # If we got to here without crashing then the test passed
   pass( 'RT132249 did not cause a crash' );
}