Branch Coverage

blib/lib/HTML/TableExtract.pm
Criterion Covered Total %
branch 198 340 58.2


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'
94 62 314 exists $parms{$_} && defined $parms{$_} ? :
96 12 11 if ($self->{'headers'})
98 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 90 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 0 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] ? :
257 0 0 if $self->{'debug'}
314 45 66 unless defined $counts->[$depth]
319 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) { }
400 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'}
441 0 46 if TREE()
447 0 0 unless defined $_[0]
491 0 111 unless defined $parms{'depth'}
492 0 111 unless defined $parms{'count'}
493 0 111 unless defined $parms{'counts'}
502 54 57 if $pts
515 0 9312 if (@res and ref $res[0]) { }
537 0 111 if ($self->{'debug'})
539 0 0 if @{$grid->[$_];}
547 0 984 if $self->{'debug'} > 1
549 0 0 $trow->[$c] ? :
0 9342 if $self->{'debug'} > 1
550 9312 30 if ($trow->[$c]) { }
551 0 9312 unless (defined $row->[$c])
561 0 984 if $self->{'debug'} > 1
562 0 984 unless $#$row == $#$trow
598 66 15 unless defined $self->{'tdepth'}
599 8 7 $self->{'tdepth'} == $self->{'depth'} ? :
605 63 11 unless defined $self->{'tcount'}
607 4 7 if exists $self->{'counts'}[$self->{'depth'}] and $self->{'tcount'} == $self->{'counts'}[$self->{'depth'}]
614 52 15 unless scalar keys %{$$self{'tattribs'};}
615 0 15 unless scalar keys %{$$self{'attribs'};}
618 8 7 unless (defined $self->{'attribs'}{$attrib})
621 1 6 unless (defined $self->{'tattribs'}{$attrib})
625 2 4 if ($self->{'tattribs'}{$attrib} ne $self->{'attribs'}{$attrib})
629 0 15 if $self->{'debug'} > 3 and $a_hit
636 0 57 if $self->{'umbrella'}
637 11 46 unless $self->{'headers'}
646 631 0 if ($ref_type)
647 631 0 if ($ref_type eq 'SCALAR') { }
649 0 631 if ($self->{'keep_html'} and $self->{'strip_html_on_match'}) { }
658 0 0 if ($self->{'keep_html'} || TREE() and $self->{'strip_html_on_match'}) { }
667 631 0 defined $target ? :
669 0 631 if $self->{'debug'} >= 5
670 180 451 if ($target =~ /$hpat/) { }
0 451 elsif ($self->{'debug'} >= 5) { }
672 0 180 if $self->{'debug'} >= 5
677 180 48 if ($hit =~ /$_/im)
684 180 0 if (defined $real_hit)
685 0 180 if ($self->{'debug'} >= 4)
686 0 0 $ref_type eq 'SCALAR' ? :
693 42 138 unless (%{$self->{'hits_left'};})
706 0 28 if ($self->{'debug'} and @hits)
719 30 81 if $self->{'umbrella'}
720 57 17 if $self->_check_dtrigger and $self->_check_ctrigger and $self->_check_atrigger
730 0 984 if ($self->{'in_row'})
731 0 0 if $self->{'debug'}
741 984 0 if ($self->{'in_row'}) { }
742 0 984 if ($self->{'in_cell'})
743 0 0 if $self->{'debug'}
751 0 0 if $self->{'debug'}
757 0 9312 if ($self->{'in_cell'})
758 0 0 if $self->{'debug'}
761 0 9312 unless ($self->{'in_row'})
764 0 0 if $self->{'debug'}
769 9312 0 ref $_[1] ? :
776 9312 0 if ($self->{'in_cell'}) { }
781 0 0 if $self->{'debug'}
794 0 250 if $self->{'debug'} >= 2
802 0 1093 if ($a =~ /^$b/) { }
0 1093 elsif ($b =~ /^$a/) { }
827 0 0 @_ ? :
833 111 54 if (@_)
836 54 57 if ($pts)
860 0 36 $alias ? :
864 36 0 wantarray ? :
883 38 40 if ($self->{'headers'})
885 29 9 unless $self->{'keep_headers'}
899 0 6 unless $r <= $#{$$self{'grid'};}
904 0 6 wantarray ? :
911 128 96 if ($self->{'automap'} and $self->_map_makes_a_difference) { }
918 6 218 wantarray ? :
928 0 0 wantarray ? :
935 0 4 unless $c <= $#$row
941 0 877 unless @_
943 4 873 unless ref $cell
944 0 873 if TREE()
952 0 2 unless $r <= $#$gridalias
955 0 2 unless $c <= $#$row
962 0 28 unless $r <= $#{$$self{'translation'};}
965 0 28 unless $c <= $#$row
976 3 0 if ($self->{'automap'} and $self->_map_makes_a_difference) { }
977 15 0 ref $_ ? :
980 0 0 ref $_ ? :
988 344 75 if ($self->{'headers'}) { }
1006 2 225 unless $self->{'slice_columns'}
1010 0 225 if $#order != $#sorder
1011 131 94 if $#sorder != $#{$$self{'grid'}[0];}
1013 131 466 if ($order[$_] != $sorder[$_])
1032 0 70 unless $self->{'headers'}
1049 0 0 if ($include_content) { }
1092 113 9312 unless @_
1094 9306 6 unless $rspan > 1
1095 9303 9 unless $cspan > 1
1098 984 8328 if ($row_num > $trigger)
1102 0 984 if ($row_num - $trigger > 1)
1109 0 984 if ($row_spinner[-1] and $col_spinner[-1]) { }
1118 15 8367 if ($_) { }
1126 111 873 unless @new_row
1133 8463 41358 unless (defined $current_row->[$ci])
1138 849 8463 unless (defined $col)
1144 849 0 if (not $cspan_count) { }
1154 849 4140 unless (defined $current_row->[$ci])
1160 849 0 if $col == $#$current_row
1170 7482 1830 if ($col < $#$current_row)
1173 870 6609 if ($col + $row_spinner[-1] < $#$current_row and $row_added and not $rspin_propogate)
1184 3 12 if ($col + $offset > $#$current_row)
1191 0 9312 if ($DEBUG)
1195 0 0 if (defined $row->[$c]) { }
1196 0 0 $row->[$c] ? :
1206 0 0 defined $_ ? :
1235 0 0 if $self->{'_htes_inside'}{'script'} or $self->{'_htes_inside'}{'style'}