Branch Coverage

blib/lib/HTML/Dashboard.pm
Criterion Covered Total %
branch 69 92 75.0


line true false branch
117 0 0 if (scalar @keys == 0)
141 18 0 unless ($$self{'pagesize'})
146 18 0 unless (@{$$self{'view'};})
167 0 17 unless ($data and ref $data eq 'ARRAY')
176 0 1 unless ($data and ref $data eq 'ARRAY')
231 18 2 unless ($$self{'comparator'})
262 1 0 if (defined $arg and $arg > 0) { }
274 0 3 unless (defined $$self{'pagesize'})
279 3 0 $frac ? :
293 17 839 exists $$args{'html'} ? :
294 0 856 exists $$args{'class'} ? :
296 15 841 if (exists $$args{'color'} and exists $$args{'style'}) { }
7 834 elsif (not exists $$args{'color'} and exists $$args{'style'}) { }
107 1454 elsif (exists $$args{'color'} and not exists $$args{'style'}) { }
320 2 18 if (defined $page)
321 0 2 if ($page < 0 or $page > $self->get_pagecount) { }
2 0 elsif (defined $$self{'pagesize'}) { }
328 1 1 if ($upto > $$self{'records'})
343 0 20 if ($$self{'records'} < 1) { }
348 0 20 if (scalar grep({$_ != $colcnt;} @colcount))
354 0 4 if (@{$$self{'captions'};} and $colcnt and scalar @{$$self{'captions'};} != scalar @{$$self{'data'}[0];})
359 93 0 unless $_ < 0
0 20 if (scalar grep({$_ >= $colcnt unless $_ < 0;} @{$$self{'view'};}))
363 0 20 if ($fatal) { }
0 20 elsif ($warn) { }
394 0 3 if (@{$$self{'captions'};})
456 13 4 unless (@{$$self{'captions'};})
477 79 64 if ($prow % 2 == 0) { }
481 17 126 if ($prow == 0) { }
16 110 elsif ($prow == $$self{'pagesize'} - 1) { }
488 143 0 if (exists $$self{'ROW_TRIGGERS'})
492 15 19 if (&$trig($$self{'data'}[$row], $prow, $row))
517 411 277 if ($vcol % 2 == 0) { }
521 143 545 if ($vcol == 0) { }
143 402 elsif ($vcol == scalar(@{$$self{'view'};}) - 1) { }
530 27 661 if (exists $$self{'CELL_TRIGGERS'}{$col})
534 11 28 if (&$trig($$self{'data'}[$row][$col], $vcol, $col))
544 17 671 if (not $flag and exists $$self{'fired_col_triggers'}{$col})
557 18 761 if (exists $$self{'format'}{$col})
560 9 9 if ($type eq 'format') { }
586 49 5 if (not defined $val) { }
5 0 elsif ($arg eq 'class' or $arg eq 'style') { }
588 18 31 exists $html{$opt} ? :
679 0 17 unless (exists $$self{'COL_TRIGGERS'})
685 80 2 unless (exists $$self{'COL_TRIGGERS'}{$col})
693 2 8 if (&$trig($$self{'data'}[$row][$col], $vcol, $col))