File Coverage

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

Criterion	Covered	Total	%
statement	20	20	100.0
branch			n/a
condition			n/a
subroutine	8	8	100.0
pod	0	2	0.0
total	28	30	93.3

package Test::RandomCheck::Types::Reference;
use strict;
use warnings;
use parent "Test::RandomCheck::Types";
use Class::Accessor::Lite (ro => [qw(type)]);
use Test::RandomCheck::Types::List;

sub arbitrary {
    my $self = shift;
    $self->type->arbitrary->map(sub { [@_] });
}

sub memoize_key {
    my ($self, $array_ref) = @_;
    $self->type->memoize_key(@$array_ref);
}

1;