File Coverage

blib/lib/Syntax/Operator/Matches.pm

Criterion	Covered	Total	%
statement	26	29	89.6
branch	9	12	75.0
condition	3	6	50.0
subroutine	6	6	100.0
pod	0	1	0.0
total	44	54	81.4

package Syntax::Operator::Matches 0.000003;

use v5.38;
use warnings;

use Carp;
use match::simple;

require XSLoader;
XSLoader::load( __PACKAGE__, our $VERSION );

sub import
{
   my $class = shift;
   my $caller = caller;

   $class->import_into( $caller, @_ );
}

sub import_into
{
   my $class = shift;
   my ( $caller, @syms ) = @_;

   @syms or @syms = qw( matches );
   my %syms = map { $_ => 1 } @syms;

   if ( $syms{'-all'} or $syms{':all'} ) {
      $syms{matches} = $syms{mismatches} = 1;
      delete $syms{$_} for qw/ -all :all /;
   }

   if ( $syms{'-default'} or $syms{':default'} ) {
      $syms{matches} = 1;
      delete $syms{$_} for qw/ -default :default /;
   }

   $^H{"Syntax::Operator::Matches/matches"}++    if delete $syms{matches};
   $^H{"Syntax::Operator::Matches/mismatches"}++ if delete $syms{mismatches};

   croak "Unrecognised import symbols @{[ keys %syms ]}" if keys %syms;
}

1;
__END__