Branch Coverage

blib/lib/HTML/TableExtract.pm
Criterion Covered Total %
branch 198 338 58.5


line true false branch
31 0 10 @_ ? :
32 10 0 unless @_
34 0 0 unless $mode eq 'tree'
36 0 0 if $@
38 0 0 if $@
77 12 19 if ($k eq 'headers') { }
19 0 elsif ($k =~ /^$Dpat$/) { }
78 0 12 unless ref $v eq 'ARRAY'
93 62 314 exists $parms{$_} && defined $parms{$_} ? :
96 12 11 if ($$self{'headers'})
97 0 12 if $$self{'debug'}
114 0 10650 if TREE()
117 111 10539 if ($_[0] eq 'table') { }
10389 150 elsif ($$self{'_in_a_table'}) { }
119 0 111 if @res
124 984 9405 if ($_[0] eq 'tr') { }
9312 93 elsif ($_[0] eq 'td' or $_[0] eq 'th') { }
93 0 elsif (not TREE() and $$ts{'in_cell'}) { }
129 9312 0 ref $_[1] ? :
136 0 93 if ($$self{'keep_html'}) { }
3 180 elsif ($_[0] eq 'br' and $$self{'br_translate'}) { }
154 0 10647 if TREE()
156 10497 150 if ($$self{'_in_a_table'})
158 9312 1185 if ($_[0] eq 'td' or $_[0] eq 'th') { }
984 201 elsif ($_[0] eq 'tr') { }
111 90 elsif ($_[0] eq 'table') { }
90 0 elsif (not TREE()) { }
168 0 90 if ($$self{'keep_html'} and $$ts{'in_cell'})
182 0 9756 if (TREE()) { }
9449 307 elsif ($$self{'_in_a_table'}) { }
187 9322 127 if ($$ts{'in_cell'})
188 9322 0 if ($$self{'decode'} and not $$self{'keep_html'}) { }
202 23 310 unless $$self{'_parsing'}
220 0 0 unless ref $$self{'_tables'}
227 0 0 unless defined $depth
228 0 0 unless exists $$self{'_tables'}{$depth}
235 0 0 unless defined $depth
236 0 0 unless defined $count
237 0 0 unless ($$self{'_tables'}{$depth} and $$self{'_tables'}{$depth}{$count})
245 10 0 ref $$self{'_ts_sequential'}[0] ? :
256 0 0 if $$self{'debug'}
314 45 66 unless defined $$counts[$depth]
318 0 111 if $$self{'debug'} >= 2
324 30 46 unless (defined $$self{'depth'} or defined $$self{'count'} or $$self{'attribs'} or $$self{'headers'})
352 81 30 unless ($umbrella)
374 0 111 if ($$ts{'in_cell'})
375 0 0 if $$self{'debug'}
378 0 111 if ($$ts{'in_row'})
379 0 0 if $$self{'debug'}
386 83 28 if $ts->_check_triggers
392 54 57 if (ref $lts) { }
399 0 111 if $$self{'debug'} >= 2
405 0 89 unless ref $ts
406 0 89 if ($$self{'debug'} >= 2)
408 0 0 if $type
412 0 89 if TREE()
413 11 78 if ($$self{'subtables'})
415 2 6 if $$child{'captured'}
446 0 0 unless defined $_[0]
490 0 111 unless defined $parms{'depth'}
491 0 111 unless defined $parms{'count'}
492 0 111 unless defined $parms{'counts'}
501 54 57 if $pts
514 0 9312 if (@res and ref $res[0]) { }
536 0 111 if ($$self{'debug'})
538 0 0 if @{$$grid[$_];}
546 0 984 if $$self{'debug'} > 1
548 0 0 $$trow[$c] ? :
0 9342 if $$self{'debug'} > 1
549 9312 30 if ($$trow[$c]) { }
550 0 9312 unless (defined $$row[$c])
560 0 984 if $$self{'debug'} > 1
561 0 984 unless $#$row == $#$trow
597 66 15 unless defined $$self{'tdepth'}
598 8 7 $$self{'tdepth'} == $$self{'depth'} ? :
604 63 11 unless defined $$self{'tcount'}
605 4 7 if exists $$self{'counts'}[$$self{'depth'}] and $$self{'tcount'} == $$self{'counts'}[$$self{'depth'}]
613 52 15 unless scalar keys %{$$self{'tattribs'};}
614 0 15 unless scalar keys %{$$self{'attribs'};}
617 8 7 unless (defined $$self{'attribs'}{$attrib})
620 1 6 unless (defined $$self{'tattribs'}{$attrib})
624 2 4 if ($$self{'tattribs'}{$attrib} ne $$self{'attribs'}{$attrib})
628 0 15 if $$self{'debug'} > 3 and $a_hit
635 0 57 if $$self{'umbrella'}
636 11 46 unless $$self{'headers'}
645 631 0 if ($ref_type)
646 631 0 if ($ref_type eq 'SCALAR') { }
648 0 631 if ($$self{'keep_html'} and $$self{'strip_html_on_match'}) { }
657 0 0 if ($$self{'keep_html'} || TREE() and $$self{'strip_html_on_match'}) { }
666 631 0 defined $target ? :
667 0 631 if $$self{'debug'} >= 5
669 180 451 if ($target =~ /$hpat/) { }
0 451 elsif ($$self{'debug'} >= 5) { }
671 0 180 if $$self{'debug'} >= 5
676 180 48 if ($hit =~ /$_/im)
683 180 0 if (defined $real_hit)
684 0 180 if ($$self{'debug'} >= 4)
685 0 0 $ref_type eq 'SCALAR' ? :
692 42 138 unless (%{$$self{'hits_left'};})
705 0 28 if ($$self{'debug'} and @hits)
718 30 81 if $$self{'umbrella'}
719 57 17 if $self->_check_dtrigger and $self->_check_ctrigger and $self->_check_atrigger
729 0 984 if ($$self{'in_row'})
730 0 0 if $$self{'debug'}
740 984 0 if ($$self{'in_row'}) { }
741 0 984 if ($$self{'in_cell'})
742 0 0 if $$self{'debug'}
749 0 0 if $$self{'debug'}
756 0 9312 if ($$self{'in_cell'})
757 0 0 if $$self{'debug'}
760 0 9312 unless ($$self{'in_row'})
762 0 0 if $$self{'debug'}
768 9312 0 ref $_[1] ? :
775 9312 0 if ($$self{'in_cell'}) { }
779 0 0 if $$self{'debug'}
793 0 250 if $$self{'debug'} >= 2
801 0 1138 if ($a =~ /^$b/) { }
0 1138 elsif ($b =~ /^$a/) { }
826 0 0 @_ ? :
832 111 54 if (@_)
835 54 57 if ($pts)
859 0 36 $alias ? :
863 36 0 wantarray ? :
882 38 40 if ($$self{'headers'})
884 29 9 unless $$self{'keep_headers'}
898 0 6 unless $r <= $#{$$self{'grid'};}
903 0 6 wantarray ? :
910 128 96 if ($$self{'automap'} and $self->_map_makes_a_difference) { }
917 6 218 wantarray ? :
927 0 0 wantarray ? :
934 0 4 unless $c <= $#$row
940 0 877 unless @_
942 4 873 unless ref $cell
943 0 873 if TREE()
951 0 2 unless $r <= $#$gridalias
954 0 2 unless $c <= $#$row
961 0 28 unless $r <= $#{$$self{'translation'};}
964 0 28 unless $c <= $#$row
975 3 0 if ($$self{'automap'} and $self->_map_makes_a_difference) { }
976 15 0 ref $_ ? :
979 0 0 ref $_ ? :
987 344 75 if ($$self{'headers'}) { }
1005 2 225 unless $$self{'slice_columns'}
1009 0 225 if $#order != $#sorder
1010 131 94 if $#sorder != $#{$$self{'grid'}[0];}
1012 131 466 if ($order[$_] != $sorder[$_])
1031 0 70 unless $$self{'headers'}
1048 0 0 if ($include_content) { }
1091 113 9312 unless @_
1093 9306 6 unless $rspan > 1
1094 9303 9 unless $cspan > 1
1097 984 8328 if ($row_num > $trigger)
1101 0 984 if ($row_num - $trigger > 1)
1108 0 984 if ($row_spinner[-1] and $col_spinner[-1]) { }
1117 15 8367 if ($_) { }
1125 111 873 unless @new_row
1132 8463 41358 unless (defined $$current_row[$ci])
1137 849 8463 unless (defined $col)
1143 849 0 if (not $cspan_count) { }
1153 849 4140 unless (defined $$current_row[$ci])
1159 849 0 if $col == $#$current_row
1169 7482 1830 if ($col < $#$current_row)
1172 870 6609 if ($col + $row_spinner[-1] < $#$current_row and $row_added and not $rspin_propogate)
1183 3 12 if ($col + $offset > $#$current_row)
1190 0 9312 if ($DEBUG)
1194 0 0 if (defined $$row[$c]) { }
1195 0 0 $$row[$c] ? :
1205 0 0 defined $_ ? :
1234 0 0 if $$self{'_htes_inside'}{'script'} or $$self{'_htes_inside'}{'style'}