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