| line |
true |
false |
branch |
|
483
|
2 |
18 |
if ($format == 1) { } |
|
|
8 |
10 |
elsif ($format == 2) { } |
|
|
10 |
0 |
elsif ($format == 3) { } |
|
484
|
0 |
2 |
unless $val =~ /^ \ * [+-]? [0-9]+ \z/ux |
|
487
|
0 |
8 |
unless $val =~ /^ \ * [+-]? (?: [0-9]+\.[0-9]* | [0-9]*\.[0-9]+ ) \z/ux |
|
490
|
0 |
10 |
unless $val =~ /^ \ * [+-] (?: [0-9]+\.[0-9]* | [0-9]*\.[0-9]+ ) E [+-][0-9]+ \z/ux |
|
505
|
10 |
10 |
if ($val =~ /E/u) |
|
507
|
6 |
4 |
unless $val =~ /\./u |
|
508
|
5 |
5 |
unless $val =~ /^-/u |
|
513
|
8 |
2 |
$val =~ /\./u ? : |
|
562
|
0 |
0 |
if $value == eval $symbol |
|
574
|
0 |
0 |
if (my $seq = &ber_is_seq($ber)) { } |
|
582
|
0 |
0 |
$asn ? : |
|
586
|
0 |
0 |
if ($profile == $SNMP_PROFILE and $ber->[0] == 1) { } |
|
|
0 |
0 |
elsif (not $asn) { } |
|
596
|
0 |
0 |
if ($ber->[2]) { } |
|
601
|
0 |
0 |
if ($data =~ tr/ -~/\000-\037\177-\377/c / (length $data || 1) > 0.2 or $data =~ /\x00./su) { } |
|
606
|
0 |
0 |
if $tag =~ /string/iu or not length $data |
|
609
|
0 |
0 |
if 40 < length $data |