]> git.vpit.fr Git - perl/modules/re-engine-Plugin.git/blob - t/20-methods/free.t
61c5dff1de6aa37be7388735d5653607f43e67d0
[perl/modules/re-engine-Plugin.git] / t / 20-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/;