File Coverage

blib/lib/Test/Deep/Boolean.pm
Criterion Covered Total %
statement 22 22 100.0
branch 4 4 100.0
condition 4 4 100.0
subroutine 8 8 100.0
pod 0 5 0.0
total 38 43 88.3


line stmt bran cond sub pod time code
1 1     1   6 use strict;
  1         3  
  1         30  
2 1     1   4 use warnings;
  1         2  
  1         35  
3              
4             package Test::Deep::Boolean 1.202;
5              
6 1     1   356 use Test::Deep::Cmp;
  1         2  
  1         4  
7              
8             sub init
9             {
10 18     18 0 28 my $self = shift;
11              
12 18 100       82 $self->{val} = shift() ? 1 : 0;
13             }
14              
15             sub descend
16             {
17 18     18 0 27 my $self = shift;
18 18         22 my $got = shift;
19              
20 18   100     80 return !( $got xor $self->{val} );
21             }
22              
23             sub diag_message
24             {
25 8     8 0 11 my $self = shift;
26 8         12 my $where = shift;
27 8         22 return "Comparing $where as a boolean";
28             }
29              
30             sub renderExp
31             {
32 8     8 0 10 my $self = shift;
33              
34 8         22 $self->renderGot($self->{val});
35             }
36              
37             sub renderGot
38             {
39 16     16 0 22 my $self = shift;
40              
41 16         19 my $val = shift;
42              
43 16 100       41 return ($val ? "true" : "false")." (".Test::Deep::render_val($val).")";
44             }
45              
46             1;
47              
48             __END__