Branch Coverage

blib/lib/Convert/ASN1/_encode.pm
Criterion Covered Total %
branch 81 94 86.2


line true false branch
45 5 134 if (defined(my $opt = $$op[4]))
46 2 3 unless defined $$stash{$opt}
48 123 14 if (defined($var = $$op[2]))
50 1 122 unless defined $$stash{$var}
54 122 12 defined $var ? :
134 2 UNIVERSAL::isa($stash, 'HASH') ? :
65 122 14 if defined $var
76 3 6 $_[3] ? :
83 12 44 if (abs $_[3] >= 2147483648) { }
86 6 6 vec($os, 0, 8) & 128 ? :
87 4 8 if $msb xor $_[3] > 0
94 10 34 $neg ? :
97 10 34 $neg ? :
2 42 if $neg ? !$msb : $msb
108 3 1 ref $_[3] ? :
110 0 4 if (&Encode::is_utf8($$vref))
115 3 1 if (ref $_[3]) { }
121 3 0 if ($less and $len)
137 1 28 if (&Encode::is_utf8($_[3])) { }
163 5 3 if ($_[1][1] == 6)
164 0 5 if (@data < 2) { }
184 1 6 unless ($_[3])
192 1 5 if ($_[3] >= POSIX::HUGE_VAL())
198 1 4 if ($_[3] <= -POSIX::HUGE_VAL())
203 0 4 if (exists $_[0]{'encode_real'} and $_[0]{'encode_real'} ne 'binary')
215 1 3 if ($mantissa < 0)
231 4 0 if (5 > length $eExp) { }
250 28 0 if (my $ops = $_[1][5]) { }
253 10 18 if (defined $_[5]) { }
278 7 11 defined $_[3] ? :
297 0 6 if ($mode == 2)
307 0 6 if (ref $_[3]) { }
5 1 elsif ($mode == 0) { }
312 5 0 if (exists $_[0]{'encode_timezone'}) { }
329 3 3 $isgen ? :
332 3 3 if ($isgen)
334 1 2 unless $sp =~ /\.000$/
336 5 1 $offset ? :
348 1 1 unless &Encode::is_utf8($tmp)
365 2 0 if ($_[1][6] and $_[2]{$_[1][6]})
367 0 2 unless $handler
369 2 0 if ($handler) { }
381 6 1 defined $_[3] ? :
383 10 0 defined $$op[2] ? :
385 7 3 if (exists $$stash{$var})
400 6 2 "$_[3]" =~ /^(\d+)/ ? :
401 3 5 if length $str & 1