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