File Coverage

blib/lib/Test/RandomCheck/Types/RefHash.pm

Criterion	Covered	Total	%
statement	21	34	61.7
branch			n/a
condition			n/a
subroutine	7	11	63.6
pod			n/a
total	28	45	62.2

package Test::RandomCheck::Types::HashRef;
use strict;
use warnings;
use parent "Test::RandomCheck::Types";
use Class::Accessor::Lite (
    ro => [qw(min max key_type value_type)],
    rw => [qw(_list_type)],
);
use Test::RandomCheck::Types::List;
use Test::RandomCheck::Types::Reference;
use Test::RandomCheck::Types::Product;

sub new {
    my $class = shift;
    my $self = $class->SUPER::new(@_);

    my $kv = Test::RandomCheck::Types::Reference->new(
        type => product ($self->key_type, $self->value_type)
    );
    my $inner_type = list ($kv, $self->min, $self->max);
    $self->_list_type($inner_type);
    $self;
}

sub arbitrary {
    my $self = shift;
    $self->_list_type->arbitrary->map(sub { +{map { @$_ } @_} });
}

sub memoize_key {
    my ($self, $hash_ref) = @_;
    $self->_list_type->memoize_key(
        map { [$_ => $hash_ref->{$_}] } keys %$hash_ref
    );
}

1;