t/num_buff/LENGTH.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->stash( [
   9             10, 10,
  10             20, 20,
  11             30, 30,
  12             40,
  13         ]);
  14
  15         $re->num_captures(
  16             LENGTH => sub {
  17                 my ($re, $paren) = @_;
  18
  19                 shift @{ $re->stash };
  20             },
  21         );
  22
  23         1;
  24     },
  25 );
  26
  27 "a" =~ /a/;
  28
  29 is(length $`, 10);
  30 is(length ${^PREMATCH}, 10);
  31 is(length $', 20);
  32 is(length ${^POSTMATCH}, 20);
  33 is(length $&, 30);
  34 is(length ${^MATCH}, 30);
  35 is(length $1, 40);