t/num_buff/STORE.t

   1 use strict;
   2 use Test::More tests => 14;
   3
   4 use re::engine::Plugin (
   5     exec => sub {
   6         my $re = shift;
   7
   8         $re->stash( [
   9             [ -2, "a" ],
  10             [ -2, "a" ],
  11             [ -1, "o" ],
  12             [ -1, "o" ],
  13             [  0, "e" ],
  14             [  0, "e" ],
  15             [  1, "u" ],
  16         ]);
  17
  18         $re->num_captures(
  19             STORE => sub {
  20                 my ($re, $paren, $sv) = @_;
  21                 my $test = shift @{ $re->stash };
  22
  23                 is($paren, $test->[0]);
  24                 is($sv, $test->[1]);
  25             },
  26         );
  27
  28         1;
  29     },
  30 );
  31
  32 "a" =~ /a/;
  33
  34 $` = "a";
  35 ${^PREMATCH} = "a";
  36 $' = "o";
  37 ${^POSTMATCH} = "o";
  38 $& = "e";
  39 ${^MATCH} = "e";
  40 $1 = "u";