File Coverage

blib/lib/Variable/Strongly/Typed/Hash.pm

Criterion	Covered	Total	%
statement	18	49	36.7
branch			n/a
condition			n/a
subroutine	6	14	42.8
pod			n/a
total	24	63	38.1

package Variable::Strongly::Typed::Hash;

use version; $VERSION = qv('1.0.0');

use warnings;
use strict;
use Carp;

use base qw(Variable::Strongly::Typed);

{
    sub TIEHASH {
        my($class, $type) = @_;

        my $self = bless \my($anon_scalar), $class;
        $self->_init({}, $type);
    }

    sub STORE    {
        my($self, $key, $value) = @_;
        my $hash = $self->_get_object;

        $self->_check_values($value);
        $hash->{$key} = $value;
    }

    sub FETCH    {
        my($self, $key) = @_;
        my $hash = $self->_get_object;
        $hash->{$key};
    }

    sub FIRSTKEY {
        my($self) = @_;
        my $hash = $self->_get_object;
        my $a = scalar keys %{$hash};
        each %{$hash};
    }

    sub NEXTKEY  {
        my($self) = @_;
        my $hash = $self->_get_object;
        each %{$hash};
    }

    sub EXISTS   {
        my($self, $key) = @_;
        my $hash = $self->_get_object;
        exists $hash->{$key};
    }

    sub DELETE   {
        my($self, $key) = @_;
        my $hash = $self->_get_object;
        delete $hash->{$key};
    }

    sub CLEAR    {
        my($self) = @_;
        my $hash = $self->_get_object;
        %{$hash} = ()
    }

    sub SCALAR   {
        my($self) = @_;
        my $hash = $self->_get_object;
        scalar %{$hash};
    }

}

1;

__END__