t/named_buff/SCALAR.t

   1 use strict;
   2 use Test::More tests => 6;
   3
   4 use re::engine::Plugin (
   5     exec => sub {
   6         my ($re) = @_;
   7
   8         my @stash = (
   9             { flags => 0, ret => "ook" },
  10             { flags => 1, ret => "eek" },
  11         );
  12
  13         $re->named_captures(
  14             SCALAR => sub {
  15                 my ($re, $flags) = @_;
  16                 my $hv = shift @stash;
  17
  18                 is($flags, $hv->{flags}, "flags == $flags");
  19                 ok($hv->{ret}, "ret == $hv->{ret}");
  20
  21                 return $hv->{ret};
  22             },
  23         );
  24
  25         1;
  26     },
  27 );
  28
  29 "a" =~ /a/;
  30 is(scalar %+, "ook");
  31 is(scalar %-, "eek");