File Coverage

blib/lib/Test/Data/Split/Backend/ValidateHash.pm

Criterion	Covered	Total	%
statement	22	24	91.6
branch	2	4	50.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	30	34	88.2

package Test::Data::Split::Backend::ValidateHash;

use strict;
use warnings;

use Carp qw/confess/;

use parent 'Test::Data::Split::Backend::Hash';

sub populate
{
    my ($self, $array_ref) = @_;

    my @l = @$array_ref;

    my $tests = $self->get_hash;

    if (@l & 0x1)
    {
        confess("Input length is not even.");
    }
    while (@l)
    {
        my $key = shift@l;
        my $val = shift@l;
        if (exists($tests->{$key}))
        {
            confess("Duplicate key '$key'!");
        }
        $tests->{$key} = $self->validate_and_transform({id => $key, data => $val,});
    }

    return;
}

1;

__END__