t/named_buff/CLEAR.t

   1 use strict;
   2 use Test::More tests => 6;
   3
   4 use re::engine::Plugin (
   5     exec => sub {
   6         my $re = shift;
   7
   8         $re->stash( [
   9             { flags => 0 },
  10             { flags => 0 },
  11             { flags => 0 },
  12             { flags => 1 },
  13             { flags => 1 },
  14             { flags => 1 },
  15         ] );
  16
  17         $re->named_captures(
  18             CLEAR => sub {
  19                 my ($re, $flags) = @_;
  20                 my $hv = shift @{ $re->stash };
  21
  22                 is($flags, $hv->{flags}, "flags == $flags");
  23             },
  24         );
  25
  26         1;
  27     },
  28 );
  29
  30 "a" =~ /a/;
  31 %+ = ();
  32 %+ = (a => 1);
  33 undef %+;
  34 %- = ();
  35 %- = (b => 1);
  36 undef %-;
  37
  38