File Coverage

blib/lib/Test/RandomCheck/Types/Integer.pm
Criterion Covered Total %
statement 19 19 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 0 2 0.0
total 26 28 92.8


line stmt bran cond sub pod time code
1             package Test::RandomCheck::Types::Integer;
2 4     4   12 use strict;
  4         4  
  4         88  
3 4     4   10 use warnings;
  4         5  
  4         75  
4 4     4   12 use parent "Test::RandomCheck::Types";
  4         2  
  4         12  
5 4     4   178 use Class::Accessor::Lite (ro => [qw(min max)]);
  4         4  
  4         20  
6 4     4   220 use Test::RandomCheck::ProbMonad;
  4         4  
  4         388  
7              
8             sub arbitrary {
9 1617     1617 0 1637 my $self = shift;
10 1617         2369 range ($self->min, $self->max);
11             }
12              
13             sub memoize_key {
14 606     606 0 1620 my ($self, $n) = @_;
15 606         688 $n;
16             }
17              
18             1;