Help for this page

Select Code to Download


  1. or download this
    use Hypothetical::MatchState qw( matchit );
    my $match1 = matchit( $_ => $regex );
    my $match2 = matchit( $other => $regex );
    say $_->named( q{foo} ) for ( $match1, $match2 );