| line |
true |
false |
branch |
|
484
|
2 |
14 |
if ($format == 1) { } |
|
|
8 |
6 |
elsif ($format == 2) { } |
|
|
6 |
0 |
elsif ($format == 3) { } |
|
485
|
0 |
2 |
unless $val =~ /^ \ * [+-]? [0-9]+ \z/ux |
|
488
|
0 |
8 |
unless $val =~ /^ \ * [+-]? (?: [0-9]+\.[0-9]* | [0-9]*\.[0-9]+ ) \z/ux |
|
491
|
0 |
6 |
unless $val =~ /^ \ * [+-] (?: [0-9]+\.[0-9]* | [0-9]*\.[0-9]+ ) [eE] [+-]? [0-9]+ \z/ux |
|
506
|
6 |
10 |
if ($val =~ /E/u) |
|
508
|
4 |
2 |
unless $val =~ /\./u |
|
509
|
3 |
3 |
unless $val =~ /^-/u |
|
514
|
8 |
2 |
$val =~ /\./u ? : |
|
563
|
0 |
0 |
if $value == eval $symbol |
|
575
|
0 |
0 |
if (my $seq = &ber_is_seq($ber)) { } |
|
583
|
0 |
0 |
$asn ? : |
|
587
|
0 |
0 |
if ($profile == $SNMP_PROFILE and $ber->[0] == 1) { } |
|
|
0 |
0 |
elsif (not $asn) { } |
|
597
|
0 |
0 |
if ($ber->[2]) { } |
|
602
|
0 |
0 |
if ($data =~ tr/ -~/\000-\037\177-\377/c / (length $data || 1) > 0.2 or $data =~ /\x00./su) { } |
|
607
|
0 |
0 |
if $tag =~ /string/iu or not length $data |
|
610
|
0 |
0 |
if 40 < length $data |