t/num_buff/FETCH.t

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