Branch Coverage

blib/lib/Convert/ASN1/_encode.pm
Criterion Covered Total %
branch 85 98 86.7


line true false branch
49 5 192 if $op->[1] == 18
50 5 187 if (defined(my $opt = $op->[4]))
51 2 3 unless defined $stash->{$opt}
53 153 37 if (defined($var = $op->[2]))
55 3 150 unless defined $stash->{$var}
63 150 27 defined $var ? :
177 10 UNIVERSAL::isa($stash, 'HASH') ? :
70 150 35 if defined $var
81 3 12 $_[3] ? :
88 12 60 if (abs $_[3] >= 2147483648) { }
91 6 6 vec($os, 0, 8) & 128 ? :
92 4 8 if $msb xor $_[3] > 0
99 10 50 $neg ? :
102 10 50 $neg ? :
2 58 if $neg ? !$msb : $msb
113 3 1 ref $_[3] ? :
115 0 4 if (&Encode::is_utf8($$vref))
120 3 1 if (ref $_[3]) { }
126 3 0 if ($less and $len)
142 1 40 if (&Encode::is_utf8($_[3])) { }
168 6 3 if ($_[1][1] == 6)
169 0 6 if (@data < 2) { }
189 1 6 unless ($_[3])
197 1 5 if ($_[3] >= &POSIX::HUGE_VAL())
203 1 4 if ($_[3] <= -&POSIX::HUGE_VAL())
208 0 4 if (exists $_[0]{'encode_real'} and $_[0]{'encode_real'} ne "binary")
220 1 3 if ($mantissa < 0)
236 4 0 if (5 > length $eExp) { }
255 45 0 if (my $ops = $_[1][6]) { }
258 11 34 if (defined $_[5]) { }
283 11 23 defined $_[3] ? :
302 0 6 if ($mode == 2)
313 0 6 if (ref $_[3]) { }
5 1 elsif ($mode == 0) { }
318 5 0 if (exists $_[0]{'encode_timezone'}) { }
335 3 3 $isgen ? :
338 3 3 if ($isgen)
340 1 2 unless $sp =~ /\.000$/
342 5 1 $offset ? :
354 1 1 unless &Encode::is_utf8($tmp)
371 2 0 if ($_[1][7] and $_[2]{$_[1][7]})
373 0 2 unless $handler
375 2 0 if ($handler) { }
387 6 4 defined $_[3] ? :
389 1 15 if $op->[1] == 18
390 15 0 defined $op->[2] ? :
392 10 5 if (exists $stash->{$var})
407 6 2 "$_[3]" =~ /^(\d+)/ ? :
408 3 5 if length $str & 1