t/50-num_buff/LENGTH.t

   1 use strict;
   2 use Test::More "$]" < 5.011 ? (tests => 7)
   3                             : (skip_all => 'Not working in blead');
   4
   5 use re::engine::Plugin (
   6     exec => sub {
   7         my $re = shift;
   8
   9         $re->stash( [
  10             10, 10,
  11             20, 20,
  12             30, 30,
  13             40,
  14         ]);
  15
  16         $re->num_captures(
  17             LENGTH => sub {
  18                 my ($re, $paren) = @_;
  19
  20                 shift @{ $re->stash };
  21             },
  22         );
  23
  24         1;
  25     },
  26 );
  27
  28 "a" =~ /a/;
  29
  30 is(length $`, 10);
  31 is(length ${^PREMATCH}, 10);
  32 is(length $', 20);
  33 is(length ${^POSTMATCH}, 20);
  34 is(length $&, 30);
  35 is(length ${^MATCH}, 30);
  36 is(length $1, 40);