File Coverage

blib/lib/Hash/RestrictedKeys/Tie.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	2	2	100.0
condition			n/a
subroutine	13	13	100.0
pod			n/a
total	43	43	100.0

package Hash::RestrictedKeys::Tie;

use strict;
use warnings;
use Carp qw/croak/;

sub TIEHASH {
	my ($class, @keys) = @_;
	bless {
		hash => {},
		allowed_keys => \@keys
	}, $class;
}

sub STORE {
	$_[0]->{hash}->{$_[0]->_VALIDKEY($_[1])} = $_[2];
}

sub FETCH {
	$_[0]->{hash}->{$_[0]->_VALIDKEY($_[1])};
}

sub _VALIDKEY {
	croak sprintf('Invalid key %s. Allowed keys: %s', $_[1], join( ', ', @{$_[0]->{allowed_keys}}))
		unless grep { $_ eq $_[1] } @{$_[0]->{allowed_keys}};
	return $_[1];
}

sub FIRSTKEY {
	each %{ $_[0]->{hash} };
}

sub NEXTKEY {
	each %{ $_[0]->{hash} };
}

sub EXISTS {
	exists $_[0]->{hash}->{$_[0]->_VALIDKEY($_[1])};
}

sub DELETE {
	delete $_[0]->{hash}->{$_[0]->_VALIDKEY($_[1])};
}

sub CLEAR {
	%{$_[0]->{hash}} = ();
}

sub SCALAR {
	scalar keys %{$_[0]->{hash}};
}

1;