+++ /dev/null
-use strict;
-use Test::More tests => 14;
-
-use re::engine::Plugin (
- exec => sub {
- my $re = shift;
-
- $re->stash( [
- [ -2, "a" ],
- [ -2, "a" ],
- [ -1, "o" ],
- [ -1, "o" ],
- [ 0, "e" ],
- [ 0, "e" ],
- [ 1, "u" ],
- ]);
-
- $re->num_captures(
- STORE => sub {
- my ($re, $paren, $sv) = @_;
- my $test = shift @{ $re->stash };
-
- is($paren, $test->[0]);
- is($sv, $test->[1]);
- },
- );
-
- 1;
- },
-);
-
-"a" =~ /a/;
-
-$` = "a";
-${^PREMATCH} = "a";
-$' = "o";
-${^POSTMATCH} = "o";
-$& = "e";
-${^MATCH} = "e";
-$1 = "u";