]> git.vpit.fr Git - perl/modules/re-engine-Plugin.git/blob - t/20-methods/pattern/modify.t
This is 0.11
[perl/modules/re-engine-Plugin.git] / t / 20-methods / pattern / modify.t
1 use strict;
2 use Test::More tests => 1;
3 use re::engine::Plugin (
4     exec => sub {
5         my ($re, $str) = @_;
6         my $pattern = $re->pattern;
7
8         $$pattern = "eek";
9
10         return 1;
11     },
12 );
13
14 my $sv = "ook";
15 if ("ook" =~ \$sv) {
16     is($sv, "eek");
17 }
18