File Coverage

blib/lib/Text/Match/FastAlternatives.pm

Criterion	Covered	Total	%
statement	19	20	95.0
branch	4	4	100.0
condition			n/a
subroutine	5	6	83.3
pod	1	1	100.0
total	29	31	93.5

package Text::Match::FastAlternatives;

use strict;
use warnings;

our $VERSION = '1.05';

use XSLoader;
XSLoader::load(__PACKAGE__, $VERSION);

use Carp ();

sub new {
    my ($class, @keywords) = @_;
    for my $str (@keywords) {
        Carp::croak("Undefined element in ", __PACKAGE__, "->new")
            if !defined $str;
        if (!utf8::valid($str)) {
            # This suppresses two "malformed UTF-8" warnings that would
            # otherwise be emitted by Carp when it constructs a message
            # containing the arguments.
            local $SIG{__WARN__} = sub {};
            Carp::croak("Malformed UTF-8 in ", __PACKAGE__, "->new");
        }
    }
    return $class->new_instance(\@keywords);
}

1;

__END__