Branch Coverage

blib/lib/Health/BladderDiary/GenTable.pm
Criterion Covered Total %
branch 34 104 32.6


line true false branch
41 1 1 if ($args{'entries'} =~ /\S\R\R+\S/) { }
65 0 6 unless $uentry =~ s/\A(\d\d)[:.]?(\d\d)(?:-(\d\d)[:.]?(\d\d))?\s*//
68 0 6 unless $uentry =~ s/(\w+):?\s*//
71 2 4 if ($event eq 'u' or $event eq 'urin') { }
2 2 elsif ($event eq 'd') { }
0 2 elsif ($event eq 'c') { }
74 0 6 unless $event =~ /\A(drink|eat|poop|urinate|comment)\z/
94 0 6 unless ($k =~ /\A(vol|type|comment|urgency|color)\z/)
100 6 24 if (defined $kv{$k})
105 4 2 if $uentry =~ /\b(\d+)ml\b/
106 0 6 if $uentry =~ /\bv(\d+)\b/
107 2 4 if $uentry =~ /\bu([0-9]|10)\b/
108 2 4 if $uentry =~ /\bc([0-6](?:\.5)?)\b/
109 2 0 if ($1 == 0) { }
0 0 elsif ($1 == 0.5) { }
0 0 elsif ($1 == 1) { }
0 0 elsif ($1 == 1.5) { }
0 0 elsif ($1 == 2) { }
0 0 elsif ($1 == 2.5) { }
0 0 elsif ($1 == 3) { }
0 0 elsif ($1 == 4) { }
0 0 elsif ($1 == 5) { }
0 0 elsif ($1 == 6) { }
121 4 2 if ($event eq 'drink') { }
0 2 elsif ($event eq 'eat') { }
2 0 elsif ($event eq 'urinate') { }
123 0 4 unless defined $parsed_entry->{'vol'}
129 0 2 unless defined $parsed_entry->{'vol'}
131 0 2 $parsed_entry->{'comment'} ? :
144 0 6 unless $res->[0] == 200
148 4 2 if ($event eq 'drink') { }
0 2 elsif ($event eq 'eat') { }
2 0 elsif ($event eq 'urinate') { }
158 2 0 if ($args{'_raw'})
166 0 0 if ($args{'yesterday_last_urination_entry'})
169 0 0 unless $res->[0] == 200
172 0 0 unless ($event eq 'urinate')
181 0 0 $yesterday_last_urination_parsed_entry ? :
186 0 0 @intakes ? :
187 0 0 @urinations ? :
189 0 0 if defined $hi and $hi < $h
190 0 0 if defined $hu and $hu < $h
194 0 0 unless @intakes or @urinations
197 0 0 $h + 1 <= 23 ? :
205 0 0 if (defined $entry->{'vol'})
221 0 0 if (defined $entry->{'vol'})
227 0 0 if (defined $prev_utime)
228 0 0 $prev_utime > $entry->{'_time'} ? :
232 0 0 defined $prev_utime ? :
240 0 0 if $h >= 24
252 0 0 $num_drink ? :
0 0 $num_urinate ? :