The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
=pod

Test the C<free> method

=cut

use strict;
use Test::More skip_all => "Doesn't work currently (where did my scope go?!)";

use re::engine::Plugin (
    comp => sub {
        my ($re) = @_;

        $re->free( sub { pass "ran free" } );
    }
);

"str" ~~ /pattern/;