File Coverage

blib/lib/Array/Contains.pm

Criterion	Covered	Total	%
statement	35	35	100.0
branch	11	12	91.6
condition			n/a
subroutine	8	8	100.0
pod	1	1	100.0
total	55	56	98.2

package Array::Contains;

use 5.020;
use strict;
use warnings;
use diagnostics;
use mro 'c3';
use English;
our $VERSION = 2.7; # Based on Maplat version this was tested against
use Carp;

require Exporter;

our @ISA = qw(Exporter);

our @EXPORT = qw(contains);

sub contains {
    my ($value, $dataset) = @_;

    if(!defined($value)) {
        croak('value is not defined in contains()');
    }

    if(!defined($dataset)) {
        croak('dataset is not defined in contains()');
    }

    if(ref($value) ne '') {
        croak('value is not a scalar in contains()');
    }

    if(ref($dataset) ne 'ARRAY') {
        croak('dataset is not an array reference in contains()');
    }

    foreach my $key (@{$dataset}) {
        next if(ref($key) ne '');
        if($value eq $key) {
            return 1;
        }
    }

    return 0;
}

1;
__END__