File Coverage

blib/lib/Banal/Utils/Hash.pm

Criterion	Covered	Total	%
statement	21	33	63.6
branch	0	6	0.0
condition			n/a
subroutine	7	8	87.5
pod	1	1	100.0
total	29	48	60.4

#===============================================
package Banal::Utils::Hash;

use 5.006;
use utf8;
use strict;
use warnings;
no  warnings qw(uninitialized);

require Exporter;

our @ISA 		= qw(Exporter);
our @EXPORT_OK 	= qw(get_inner_hash_value);


use Scalar::Util qw(reftype);
use Carp;


#-----------------------------------------------
# get_inner_hash_value($hash, @$keys)	-- 	Given a list of keys, get the associated "value" in an inner hash.
#											Assumes that all inner levels (except the obtained value) are also HASH references.
#...............................................
# Function (NOT a method)
#-----------------------------------------------
sub get_inner_hash_value {
	my $hash	= shift;
	my $keys	= [@_];
	my $key		= pop @$keys;

	my $h = $hash;
	foreach my $k (@$keys) {
		return undef unless (reftype($h) eq 'HASH');
		if (exists ($h->{$k})) {
			$h = $h->{$k};
		}else {
			return undef;
		}
	}

	if (exists ($h->{$key})) {
		return $h->{$key};
	}
	return undef;
}





1;

__END__