File Coverage

blib/lib/Array/Contains.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch	1	2	50.0
condition			n/a
subroutine	8	8	100.0
pod			n/a
total	41	42	97.6

package Array::Contains;

use 5.010_001;
use strict;
use warnings;
use mro 'c3';
use English;
our $VERSION = 3.1;
use Carp;

require Exporter;

our @ISA = qw(Exporter);

our @EXPORT = qw(contains);

BEGIN {
    # Check perl version and decide which version of the function we are going to load.
    my $perlversion = $];
    my $basemodule = 'Array::Contains::Legacy';
    if($perlversion >= 5.042) {
        $basemodule = 'Array::Contains::Any';
    }
    #print STDERR $basemodule, "\n";

    # Import the module. require() uses a filename, not a package name.
    my $fname = $basemodule . '.pm';
    $fname =~ s/\:\:/\//g;
    require $fname;
    $basemodule->import();

    {
        # make the contains() function in our package point to the _contains function of the sub-package
        no strict 'refs'; ## no critic (TestingAndDebugging::ProhibitNoStrict)
        my $funcname = $basemodule . '::_contains';
        *{__PACKAGE__ . "::contains"} = \&$funcname;
    }
};

1;
__END__