File Coverage

blib/lib/Test/RandomCheck/Types/Char.pm
Criterion Covered Total %
statement 19 19 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod 0 3 0.0
total 27 30 90.0


line stmt bran cond sub pod time code
1             package Test::RandomCheck::Types::Char;
2 4     4   12 use strict;
  4         5  
  4         79  
3 4     4   10 use warnings;
  4         4  
  4         72  
4 4     4   10 use parent "Test::RandomCheck::Types";
  4         2  
  4         16  
5 4     4   153 use Exporter qw(import);
  4         3  
  4         91  
6 4     4   11 use Test::RandomCheck::ProbMonad;
  4         4  
  4         525  
7              
8             our @EXPORT = qw(char);
9              
10 21     21 0 59 sub char () { Test::RandomCheck::Types::Char->new }
11              
12 6926     6926 0 48742 sub arbitrary { elements 'a' .. 'z', 'A' .. 'Z' }
13              
14             sub memoize_key {
15 5439     5439 0 14229 my ($self, $c) = @_;
16 5439         8886 $c;
17             }
18              
19             1;