Branch Coverage

blib/lib/Tk/DatePick.pm
Criterion Covered Total %
branch 0 102 0.0


line true false branch
23 0 0 unless defined $format
24 0 0 unless isvaliddate($currdate, $format)
0 0 if (defined $currdate)
26 0 0 unless defined $currdate
27 0 0 if (defined $yeartype)
29 0 0 if ($yeartype eq 'calyear') { }
140 0 0 if ($mth == 1)
141 0 0 if ($mth == 2 and $yr % 4 == 0)
142 0 0 if ($mth == 2 and $yr % 4 != 0)
143 0 0 if ($mth == 3)
144 0 0 if ($mth == 4)
145 0 0 if ($mth == 5)
146 0 0 if ($mth == 6)
147 0 0 if ($mth == 7)
148 0 0 if ($mth == 8)
149 0 0 if ($mth == 9)
150 0 0 if ($mth == 10)
151 0 0 if ($mth == 11)
152 0 0 if ($mth == 12)
163 0 0 unless isvaliddate($date, $format)
167 0 0 if ($i % 4 == 0) { }
183 0 0 if ($yer % 4 == 0) { }
207 0 0 if ($format == 0) { }
221 0 0 if (defined $max) { }
229 0 0 if (defined $min) { }
238 0 0 if ($temp > $mx or $temp < $mn) { }
254 0 0 if ($mm <= 0)
264 0 0 if (defined $max) { }
272 0 0 if (defined $min) { }
282 0 0 if ($years > 0) { }
286 0 0 if ($mth > 2) { }
296 0 0 if ($mth > 2) { }
302 0 0 if ($total > $mx or $total < $mn) { }
314 0 0 if (defined $max) { }
322 0 0 if (defined $min) { }
332 0 0 if ($months > 0) { }
337 0 0 if ($mth == 12) { }
343 0 0 if ($mth == 1) { }
348 0 0 if ($mth == 1) { }
352 0 0 if ($total > $mx or $total < $mn) { }
374 0 0 if (datedif($date1, $date2) == 0) { }
0 0 elsif (datedif($date1, $date2) < 0) { }
385 0 0 if ($format == 0) { }
404 0 0 if ($month < 4) { }
414 0 0 if ($format == 0) { }
433 0 0 if ($format == 0) { }
456 0 0 if ($format == 0) { }
473 0 0 if ($format == 0) { }
486 0 0 if ($month < 1 or $month > 12)
488 0 0 if ($year < 1901 or $year > 2099)
490 0 0 if ($day < 1 or $day > daysinmonth($year, $month))