+++ /dev/null
-use strict;
-use Test::More $] < 5.011 ? (tests => 7) : (skip_all => 'Not working in blead');
-
-use re::engine::Plugin (
- exec => sub {
- my $re = shift;
-
- $re->stash( [
- 10, 10,
- 20, 20,
- 30, 30,
- 40,
- ]);
-
- $re->num_captures(
- LENGTH => sub {
- my ($re, $paren) = @_;
-
- shift @{ $re->stash };
- },
- );
-
- 1;
- },
-);
-
-"a" =~ /a/;
-
-is(length $`, 10);
-is(length ${^PREMATCH}, 10);
-is(length $', 20);
-is(length ${^POSTMATCH}, 20);
-is(length $&, 30);
-is(length ${^MATCH}, 30);
-is(length $1, 40);