File Coverage

blib/lib/Data/YADV/Structure/Array.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::Array;

use strict;
use warnings;

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

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

    $self->die(qq(Wrong array index), $entry) unless $entry =~ /^\[(.+)\]$/;
    my $index = $1;

    my $structure = $self->get_structure;
    return undef unless abs($index) < scalar @$structure;

    $self->_build_node($entry, $structure->[$index]);
};

sub get_size { scalar @{$_[0]->get_structure} }

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

    my $size = $self->get_size;
    for (my $i = 0; $i < $size; ++$i) {
        $cb->($self->get_child("[$i]"), $i);
    }
}

1;