Branch Coverage

blib/lib/XAO/DO/Web/Utility.pm
Criterion Covered Total %
branch 17 108 15.7


line true false branch
42 0 7 if ($mode eq 'select-time-range') { }
0 7 elsif ($mode eq 'tracking-url') { }
0 7 elsif ($mode eq 'config-param') { }
0 7 elsif ($mode eq 'pass-cgi-params') { }
0 7 elsif ($mode eq 'current-url') { }
0 7 elsif ($mode eq 'base-url') { }
0 7 elsif ($mode eq 'show-pagedesc') { }
7 0 elsif ($mode eq 'number-ordinal-suffix') { }
112 0 0 if (lc $carrier eq 'usps') { }
0 0 elsif (lc $carrier eq 'ups') { }
0 0 elsif (lc $carrier eq 'fedex') { }
0 0 elsif (lc $carrier eq 'dhl') { }
0 0 elsif (lc $carrier eq 'yellow') { }
156 0 0 unless $args->{'name'}
159 0 0 if not defined $value and defined $args->{'default'}
160 0 0 if defined $value
230 0 0 unless length $param
231 0 0 if (index($param, "*") != -1)
234 0 0 unless index($p, $param) == 0
247 0 0 unless length $param
248 0 0 if (index($param, "*") != -1)
251 0 0 unless defined $p
252 0 0 unless index($p, $param) == 0
265 0 0 if $except{$param}
268 0 0 unless defined $value
270 0 0 if ($result eq 'form') { }
274 0 0 if $html
281 0 0 if (defined $html)
282 0 0 if $args->{'prefix'}
332 1 6 if $number < 0
336 4 3 if ($number > 10 and $number < 20 or $nl == 0 or $nl > 3) { }
1 2 elsif ($nl == 1) { }
1 1 elsif ($nl == 2) { }
0 1 elsif ($nl == 2) { }
434 0 0 if ($type eq 'quarters') { }
0 0 elsif ($type eq 'days') { }
440 0 0 if ($args->{'start'})
442 0 0 if ($y > 1000 and $q > 0 and $q < 5) { }
450 0 0 unless ($year)
456 0 0 if ($args->{'end'})
458 0 0 if ($y > 1000 and $q > 0 and $q < 5) { }
466 0 0 unless ($lastyear)
470 0 0 if ($year > $lastyear or $year == $lastyear and $quarter > $lastquarter)
477 0 0 if ($args->{'ascend'}) { }
484 0 0 $args->{'current'} && $args->{'current'} eq $value ? :
490 0 0 if ($quarter > 4)
503 0 0 $args->{'current'} && $args->{'current'} eq $value ? :
509 0 0 if ($lastquarter < 1)
526 0 0 unless ($end)
532 0 0 if ($ct[4] >= 12)
543 0 0 if ($args->{'ascend'}) { }
544 0 0 if ($end < $start)
555 0 0 if ($end > $start)
571 0 0 $args->{'current'} && $args->{'current'} == $day ? :