Branch Coverage

blib/lib/Parse/WBXML.pm
Criterion Covered Total %
branch 89 156 57.0


line true false branch
1531 0 182 unless defined $type
1555 1 648 unless $$buffref =~ s/^.{$count}([\x80-\xFF]*[\x00-\x7F])//s
1629 83 3538 unless $self->parse_item($next, $buffref)
1689 0 182 unless length $$buffref
1706 1 182 unless length $$buffref
1708 0 182 unless defined $rslt
1721 1 182 unless length $$buffref
1723 0 182 unless defined $rslt
1747 1 182 unless length $$buffref
1749 0 182 unless defined $rslt
1755 20 162 if $rslt
1765 0 20 unless length $$buffref >= $$self{'strtbl_length'}
1781 1 182 unless length $$buffref
1784 0 182 if $v == 67
1796 22 0 unless length $$buffref
1799 0 0 if ($v == 67) { }
1815 4 703 unless length $$buffref
1820 193 510 if ($v == 1)
1827 76 117 if ($$self{'has_content'}) { }
1836 0 510 if ($v == 4)
1838 0 0 unless defined $idx
1841 0 0 unless defined(my $name = $self->tag_code_from_literal($idx))
1849 128 382 if ($v == 3)
1850 6 122 unless defined(my $str = $self->termstr($buffref, 1))
1855 17 365 if ($v == 131)
1856 0 17 unless defined(my $idx = $self->mb_to_int($buffref, 1))
1863 13 352 if ($v == 195)
1864 0 13 unless defined(my $len = $self->mb_to_int($buffref, 1))
1873 0 352 if $self->should_switch_codepage($buffref)
1876 4 348 unless defined $code
1878 305 43 if (ref $code) { }
1908 111 194 if defined $$self{'attribute_name'}
1909 305 0 exists $args{'name'} ? :
1910 305 0 exists $args{'value'} ? :
1921 0 0 unless length $$buffref
1924 0 0 if $self->should_switch_codepage($buffref)
1926 0 0 if (ord $v == 3) { }
0 0 elsif (ord $v == 131) { }
0 0 elsif (ord $v == 195) { }
1927 0 0 unless defined(my $str = $self->termstr($buffref, 1))
1933 0 0 unless defined(my $len = $self->mb_to_int($buffref, 1))
1939 0 0 if (defined(my $start = $self->attrvalue_from_id(ord $v)))
1957 0 689 unless length $$buffref
1963 9 680 if $self->should_switch_codepage($buffref)
1965 0 689 if ($v == 4) { }
0 689 elsif ($v == 132) { }
0 689 elsif ($v == 68) { }
0 689 elsif ($v == 196) { }
1975 0 0 unless defined $idx
1981 0 0 unless defined $tag and length $tag
2001 113 576 unless defined $tag
2016 449 127 if ($$self{'has_content'}) { }
2019 6 121 unless $$self{'has_attributes'}
2023 197 379 if ($$self{'has_attributes'}) { }
2036 6 313 unless (my $end = index($$buffref, "\000", $idx)) >= 0
2056 43 1157 unless length $$buffref
2060 191 966 if ($v == 3) { }
61 905 elsif ($v == 131) { }
0 905 elsif (grep(($v == $_), 64, 65, 66)) { }
0 905 elsif (grep(($v == $_), 128, 129, 130)) { }
0 905 elsif (grep(($v == $_), 192, 193, 194)) { }
0 905 elsif ($v == 2) { }
0 905 elsif ($v == 67) { }
0 905 elsif ($v == 195) { }
398 507 elsif ($v == 1) { }
2061 0 191 unless defined(my $txt = $self->termstr($buffref, 1))
2065 0 61 unless defined(my $idx = $self->mb_to_int($buffref, 1))
2128 3 1047 unless length $$buffref >= 2
2129 1029 18 unless ord substr($$buffref, 0, 1) == 0
2136 0 9 unless $self->should_switch_codepage($buffref)
2146 0 0 unless defined(my $v = $self->codepage_index_from_buffer(@_))
2154 0 9 unless defined(my $v = $self->codepage_index_from_buffer(@_))
2171 0 0 unless length $buffer >= 4
2224 0 0 if length $data
2242 0 0 unless length $$buffref
2249 0 0 if ($byte == 4)
2250 0 0 unless defined(my $idx = $self->mb_to_int($buffref, 1))
2272 44 308 if $byte & 128