use strict;
use Test::More tests => 1;
use re::engine::Plugin (
exec => sub {
my ($re, $str) = @_;
$$str = "eek";
return 1;
},
);
my $sv = "ook";
if (\$sv =~ /pattern/) {
is($sv, "eek");
}
use strict;
use Test::More tests => 1;
use re::engine::Plugin (
exec => sub {
my ($re, $str) = @_;
$$str = "eek";
return 1;
},
);
my $sv = "ook";
if (\$sv =~ /pattern/) {
is($sv, "eek");
}