File Coverage

blib/lib/Deep/Hash/Exists.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch	10	10	100.0
condition			n/a
subroutine	7	7	100.0
pod	3	3	100.0
total	51	51	100.0

package Deep::Hash::Exists;

use strict;
use warnings;
use utf8;

use base qw( Exporter );

our @EXPORT = qw();
our @EXPORT_OK = qw(
        key_exists
        every_keys
        some_keys
);
our %EXPORT_TAGS = ( all => [ @EXPORT, @EXPORT_OK ] );
our $VERSION = '0.2';

sub key_exists($$) {
    my $hash_ref = shift;
    my $array_ref = shift;

    return 0 if ref $hash_ref ne 'HASH';

    my $key = shift @$array_ref;

    if ( exists $hash_ref->{$key} ) {
        if ( scalar @$array_ref > 0 ) {
            return &key_exists( $hash_ref->{$key}, $array_ref );
        } else {
            return 1;
        }#fi
    } else {
        return 0;
    }#fi
}

sub every_keys($$) {
    my $hash_ref = shift;
    my $list_array_ref = shift;

    foreach my $array_ref ( @$list_array_ref ) {
        return 0 unless key_exists( $hash_ref, $array_ref );
    }#hcaerof

    return 1;
}

sub some_keys($$) {
    my $hash_ref = shift;
    my $list_array_ref = shift;

    foreach my $array_ref ( @$list_array_ref ) {
        return 1 if key_exists( $hash_ref, $array_ref );
    }#hcaerof

    return 0;
}

1;


__END__