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 }