File Coverage

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

Criterion	Covered	Total	%
statement	27	28	96.4
branch	3	4	75.0
condition			n/a
subroutine	8	8	100.0
pod	3	3	100.0
total	41	43	95.3

package Test::Data::Split::Backend::Hash;

use strict;
use warnings;



sub new
{
    my $class = shift;

    my $self = bless {}, $class;

    $self->_init(@_);

    return $self;
}

sub _hash
{
    my $self = shift;

    if (@_)
    {
        $self->{_hash} = shift;
    }

    return $self->{_hash};
}

sub _init
{
    my ($self, $args) = @_;

    $self->_hash(scalar ( $self->get_hash() ));

    return;
}

sub list_ids
{
    my ($self) = @_;

    my @keys = keys(%{$self->_hash});

    require List::MoreUtils;

    if (List::MoreUtils::notall( sub { /\A[A-Za-z_\-0-9]{1,80}\z/ }, @keys))
    {
        die "Invalid key in hash reference. All keys must be alphanumeric plus underscores and dashes.";
    }
    return [ sort { $a cmp $b } @keys ];
}

sub lookup_data
{
    my ($self, $id) = @_;

    return $self->_hash->{$id};
}

1;

__END__