Branch Coverage

blib/lib/Health/BladderDiary/GenTable.pm
Criterion Covered Total %
branch 28 80 35.0


line true false branch
34 1 1 if ($args{'entries'} =~ /\S\R\R+\S/) { }
61 0 6 unless $uentry =~ s/\A(\d\d)[:.]?(\d\d)(?:-(\d\d)[:.]?(\d\d))?\s*//
64 0 6 unless $uentry =~ s/(\w+):?\s*//
67 2 4 if ($event eq 'u' or $event eq 'urin') { }
2 2 elsif ($event eq 'd') { }
0 2 elsif ($event eq 'c') { }
70 0 6 unless $event =~ /\A(drink|eat|poop|urinate|comment)\z/
90 6 24 if (defined $kv{$k})
95 4 2 if $uentry =~ /\b(\d+)ml\b/
96 0 6 if $uentry =~ /\bv(\d+)\b/
97 2 4 if $uentry =~ /\bu([0-9]|10)\b/
98 2 4 if $uentry =~ /\bc([0-6])\b/
99 2 0 if ($1 == 0) { }
0 0 elsif ($1 == 1) { }
0 0 elsif ($1 == 2) { }
0 0 elsif ($1 == 3) { }
0 0 elsif ($1 == 4) { }
0 0 elsif ($1 == 5) { }
0 0 elsif ($1 == 6) { }
108 4 2 if ($event eq 'drink') { }
0 2 elsif ($event eq 'eat') { }
2 0 elsif ($event eq 'urinate') { }
110 0 4 unless defined $parsed_entry->{'vol'}
118 0 2 unless defined $parsed_entry->{'vol'}
119 0 2 $parsed_entry->{'comment'} ? :
125 2 0 if ($args{'_raw'})
140 0 0 @intakes ? :
141 0 0 @urinations ? :
143 0 0 if defined $hi and $hi < $h
144 0 0 if defined $hu and $hu < $h
148 0 0 unless @intakes or @urinations
151 0 0 $h + 1 <= 23 ? :
159 0 0 if (defined $entry->{'vol'})
175 0 0 if (defined $entry->{'vol'})
181 0 0 if (defined $prev_utime)
182 0 0 $prev_utime > $entry->{'_time'} ? :
186 0 0 defined $prev_utime ? :
194 0 0 if $h >= 24
206 0 0 $num_drink ? :
0 0 $num_urinate ? :