t/methods/free.t

   1 =pod
   2
   3 Test the C<free> method
   4
   5 =cut
   6
   7 use strict;
   8 use Test::More skip_all => "Doesn't work currently (where did my scope go?!)";
   9
  10 use re::engine::Plugin (
  11     comp => sub {
  12         my ($re) = @_;
  13
  14         $re->free( sub { pass "ran free" } );
  15     }
  16 );
  17
  18 "str" ~~ /pattern/;