2 use Test::More tests => 7;
12 if ("$]" >= 5.017_004) {
13 $rx_idx{q[${^PREMATCH}]} = -5;
14 $rx_idx{q[${^POSTMATCH}]} = -4;
15 $rx_idx{q[${^MATCH}]} = -3;
17 $rx_idx{q[${^PREMATCH}]} = $rx_idx{q[$`]};
18 $rx_idx{q[${^POSTMATCH}]} = $rx_idx{q[$']};
19 $rx_idx{q[${^MATCH}]} = $rx_idx{q[$&]};
23 use re::engine::Plugin (
29 my ($re, $paren) = @_;
33 q[${^PREMATCH}] => 10,
35 q[${^POSTMATCH}] => 20,
43 if (exists $rx_idx{$_}) {
44 $ret{$rx_idx{$_}} = $exp{$_};
61 is(${^PREMATCH}, 10, '${^PREMATCH}');
63 is(${^POSTMATCH}, 20, '${^POSTMATCH}');
65 is(${^MATCH}, 30, '${^MATCH}');