File Coverage

blib/lib/OptionHash.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	5	8	62.5
condition	0	2	0.0
subroutine	7	7	100.0
pod	2	2	100.0
total	42	47	89.3

package OptionHash;
# ABSTRACT: Checking of option hashes


use 5.0.4;
use strict;
use warnings;
use Carp;
use base qw< Exporter >;
our @EXPORT = (qw< ohash_check ohash_define >);
our $VERSION = '0.2.0';

my $ohash_def = bless {keys => {'keys' => 1}}, __PACKAGE__;


sub ohash_define{
    my %x = @_;
    ohash_check($ohash_def, \%x);
    my %def = ( keys => { map{ $_ => 1} @{$x{keys}}} );
    return bless \%def, __PACKAGE__;
}


sub ohash_check($%){
    my($oh, $h) = @_;
    ref $oh eq 'OptionHash' or croak 'Not an OptionHash (you passed '.(ref $oh || 'a plain value').') - expecting ohash_check( $ohash_def, $hashref) ';
    ref $h eq 'HASH' or croak 'Not a hashref - expecting ohash_check( $ohash_def, $hashref) ';
    my $keys = $oh->{keys} or die;
    for( keys(%{$h}) ){
        if( ! exists $keys->{$_} ){
            croak "Invalid key $_ in OptionHash";
        }
    }
}


;1

__END__