| line |
true |
false |
branch |
| 9 |
15 |
0 |
if require bytes |
| 51 |
142 |
7 |
if (length $$op[0]) { } |
| 55 |
1 |
160 |
unless (my($tag, $len, $npos, $indef) = _decode_tl($buf, $pos, $end, $larr)) |
| 56 |
1 |
0 |
if $pos == $end and $seqof || defined $$op[4] |
| 60 |
156 |
4 |
if ($tag eq $$op[0]) |
| 62 |
16 |
0 |
ref $stash eq 'SCALAR' ? : |
| |
110 |
16 |
defined $var ? : |
| |
30 |
126 |
$seqof ? : |
| 75 |
19 |
137 |
if $seqof and $pos < $end |
| 79 |
1 |
3 |
if ($tag eq ($$op[0] | ' ') and my $ctr = $ctr[$$op[1]]) |
| 94 |
0 |
0 |
ref $stash eq 'SCALAR' ? : |
| |
1 |
0 |
defined $var ? : |
| |
0 |
1 |
$seqof ? : |
| 97 |
0 |
1 |
if $seqof and $pos < $end |
| 102 |
3 |
0 |
if ($seqof or defined $$op[4]) |
| 111 |
2 |
5 |
if ($$op[1] == 13) { } |
| 116 |
0 |
2 |
unless (my($tag, $len, $npos, $indef) = _decode_tl($buf, $pos, $end, $larr)) |
| 117 |
0 |
0 |
if $pos == $end and $seqof || defined $$op[4] |
| 123 |
2 |
0 |
if ($$op[6]) |
| 128 |
0 |
2 |
ref $stash eq 'SCALAR' ? : |
| |
0 |
2 |
$seqof ? : |
| |
2 |
0 |
$handler ? : |
| 133 |
0 |
2 |
if $seqof and $pos < $end |
| 140 |
0 |
7 |
unless (my($tag, $len, $npos, $indef) = _decode_tl($buf, $pos, $end, $larr)) |
| 141 |
0 |
0 |
if $pos == $end and $seqof || defined $$op[4] |
| 146 |
5 |
5 |
if ($tag eq $$cop[0]) |
| 148 |
0 |
1 |
ref $stash eq 'SCALAR' ? : |
| |
3 |
1 |
defined $var ? : |
| |
1 |
4 |
$seqof ? : |
| 155 |
5 |
0 |
$$cop[2] ? : |
| 165 |
1 |
4 |
if $seqof and $pos < $end |
| 169 |
2 |
3 |
unless (length $$cop[0]) |
| 170 |
0 |
2 |
unless eval {
|
| 182 |
0 |
0 |
ref $stash eq 'SCALAR' ? : |
| |
0 |
0 |
defined $var ? : |
| |
2 |
0 |
$seqof ? : |
| 195 |
1 |
1 |
if $seqof and $pos < $end |
| 199 |
0 |
3 |
if ($tag eq ($$cop[0] | ' ') and my $ctr = $ctr[$$cop[1]]) |
| 202 |
0 |
0 |
ref $stash eq 'SCALAR' ? : |
| |
0 |
0 |
defined $var ? : |
| |
0 |
0 |
$seqof ? : |
| 223 |
0 |
0 |
if $seqof and $pos < $end |
| 228 |
0 |
0 |
unless $$op[4] |
| 233 |
0 |
127 |
unless $pos == $end |
| 241 |
3 |
8 |
ord substr($_[4], $_[5], 1) ? : |
| 251 |
16 |
41 |
ord $buf & 128 ? : |
| 252 |
11 |
46 |
if ($_[6] > 4) { } |
| 294 |
5 |
3 |
if $_[1][1] == 6 and @data > 1 |
| 307 |
1 |
6 |
unless $_[6] |
| 310 |
4 |
2 |
if ($first & 128) { } |
| |
2 |
0 |
elsif ($first & 64) { } |
| |
0 |
0 |
elsif (substr($_[4], $_[5], $_[6]) =~ /^.([-+]?)0*(\d+(?:\.\d+(?:[Ee][-+]?\d+)?)?)$/s) { } |
| 319 |
0 |
4 |
if ($expLen == 3) { } |
| 334 |
1 |
3 |
if $first & 64 |
| 340 |
1 |
1 |
if $first == 64 |
| 341 |
1 |
0 |
if $first == 65 |
| 356 |
31 |
0 |
if (defined(my $ch = $_[1][5])) { } |
| 357 |
11 |
20 |
defined $_[3] || $_[1][3] ? : |
| 381 |
0 |
4 |
if $_[1][3] or not defined $ch |
| 384 |
0 |
4 |
defined $_[3] ? : |
| 389 |
0 |
12 |
unless my($tag, $len, $npos, $indef) = _decode_tl($_[4], $pos, $end, $larr) |
| 397 |
24 |
0 |
if (length $$op[0]) { } |
| |
0 |
0 |
elsif ($$op[1] == 13) { } |
| |
0 |
0 |
elsif ($$op[1] == 14) { } |
| 398 |
12 |
12 |
if ($tag eq $$op[0]) |
| 400 |
12 |
0 |
defined $var ? : |
| 413 |
0 |
12 |
if ($tag eq ($$op[0] | ' ') and my $ctr = $ctr[$$op[1]]) |
| 427 |
0 |
0 |
if defined $$op[2] |
| 439 |
0 |
0 |
if ($tag eq $$cop[0]) |
| 440 |
0 |
0 |
defined $var ? : |
| 452 |
0 |
0 |
if ($tag eq ($$cop[0] | ' ') and my $ctr = $ctr[$$cop[1]]) |
| 455 |
0 |
0 |
defined $var ? : |
| 479 |
0 |
12 |
if (not defined $done and defined $any) |
| 481 |
0 |
0 |
if defined $var |
| 485 |
0 |
12 |
if not defined $done or $done[$done]++ |
| 490 |
0 |
4 |
unless $end == $pos |
| 493 |
0 |
12 |
unless $done[$idx] or $$ch[$idx][4] |
| 508 |
0 |
6 |
if ($mode == 2 or $_[6] == 0) |
| 513 |
0 |
6 |
unless my(@bits) = substr($_[4], $_[5], $_[6]) =~ /^((?:\d\d)?\d\d)(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)((?:\.\d{1,3})?)(([-+])(\d\d)(\d\d)|Z)/ |
| 517 |
3 |
3 |
if ($bits[0] < 100) { } |
| 518 |
3 |
0 |
if $bits[0] < 50 |
| 526 |
1 |
5 |
if length $bits[6] |
| 528 |
5 |
1 |
if ($bits[7] ne 'Z') |
| 530 |
1 |
4 |
if $bits[8] eq '-' |
| 533 |
0 |
6 |
$mode ? : |
| 567 |
0 |
182 |
if ((ord $tag & 31) == 31) |
| 575 |
1 |
181 |
if $pos >= $end |
| 579 |
6 |
175 |
if ($len & 128) |
| 582 |
0 |
6 |
if ($len) { } |
| 583 |
0 |
0 |
if $pos + $len > $end |
| 588 |
2 |
4 |
unless (exists $$larr{$pos}) |
| 589 |
0 |
2 |
unless _scan_indef($_[0], $pos, $end, $larr) |
| 596 |
0 |
181 |
if $pos + $len + $indef > $end |
| 609 |
0 |
16 |
if $pos + 2 > $end |
| 611 |
6 |
10 |
if (substr($_[0], $pos, 2) eq "\000\000") |
| 622 |
0 |
10 |
if ((ord $tag & 31) == 31) |
| 629 |
0 |
10 |
if $pos >= $end |
| 633 |
4 |
6 |
if ($len & 128) { } |
| 634 |
0 |
4 |
if ($len &= 127) { } |
| 635 |
0 |
0 |
if $pos + $len > $end |