File Coverage

blib/lib/Test/RandomCheck/Types/Reference.pm
Criterion Covered Total %
statement 15 20 75.0
branch n/a
condition n/a
subroutine 5 8 62.5
pod 0 2 0.0
total 20 30 66.6


line stmt bran cond sub pod time code
1             package Test::RandomCheck::Types::Reference;
2 4     4   15 use strict;
  4         5  
  4         102  
3 4     4   16 use warnings;
  4         5  
  4         95  
4 4     4   14 use parent "Test::RandomCheck::Types";
  4         4  
  4         15  
5 4     4   223 use Class::Accessor::Lite (ro => [qw(type)]);
  4         5  
  4         33  
6 4     4   230 use Test::RandomCheck::Types::List;
  4         4  
  4         442  
7              
8             sub arbitrary {
9 0     0 0   my $self = shift;
10 0     0     $self->type->arbitrary->map(sub { [@_] });
  0            
11             }
12              
13             sub memoize_key {
14 0     0 0   my ($self, $array_ref) = @_;
15 0           $self->type->memoize_key(@$array_ref);
16             }
17              
18             1;