File Coverage

blib/lib/Data/YADV/Structure/Hash.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch	3	4	75.0
condition			n/a
subroutine	6	6	100.0
pod	0	2	0.0
total	30	33	90.9

package Data::YADV::Structure::Hash;

use strict;
use warnings;

use base 'Data::YADV::Structure::Base';

sub _get_child_node {
    my ($self, $entry) = @_;

    die qq(Wrong hash key format "$entry")
      unless $entry =~ /^\{(.+)\}$/;
    my $key = $1;

    my $structure = $self->get_structure;
    return undef unless exists $structure->{$key};

    $self->_build_node($entry, $structure->{$key})
}

sub get_size { keys %{$_[0]->get_structure} }

sub each {
    my ($self, $cb) = @_;

    foreach my $key (keys %{$self->get_structure}) {
        $cb->($self->get_child("{$key}"), $key);
    }
}

1;