package Array::Contains;

use 5.010_001;
use strict;
use warnings;
our $VERSION = 2.8;

require Exporter;

our @ISA = qw(Exporter);

our @EXPORT = qw(contains);

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

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

    return 0;
}