Branch Coverage

blib/lib/Convert/ASN1.pm
Criterion Covered Total %
branch 51 80 63.8


line true false branch
18 15 0 if require bytes
117 0 29 unless ($$self{'options'}{'encoding'} =~ /^[BD]ER$/)
123 7 51 if (exists $opt{$type})
136 0 4 unless exists $$self{'tree'}{$what}
147 0 79 unless ref $self
149 0 79 if (ref $asn eq 'GLOB') { }
157 0 79 unless ($tree)
176 0 0 unless (open ASN, $asnp)
211 4 86 @_ == 1 ? :
215 1 89 unless (eval {
224 0 3 $_[0] & 8388608 ? :
3 3 $_[0] & 32768 ? :
6 485 $_[0] >> 8 ? :
240 6 148 if ($_[0] >> 7)
261 16 77 1 == @$script && !$$self{'script'}[0][2] ? :
275 0 93 if ($@)
284 0 9 unless length $_[0]
288 4 5 if ($len & 128)
289 0 4 unless $len &= 127
291 0 4 if $len >= length $_[0]
300 2 9 unless length $_[0]
305 4 5 if (($tag & 31) == 31)
308 0 6 if $n >= length $_[0]
318 0 0 unless length $_[0]
324 0 0 if ($num == 31)
328 0 0 if $len >= length $_[0]
344 4 2 $_[0] >> 24 ? :
6 4 $_[0] >> 16 ? :
10 40 $_[0] >> 8 ? :
359 6 6 if my $neg = $num < 0
368 6 6 if $neg
379 5 6 if my $neg = ord $os >= 128
384 5 6 $neg ? :
397 0 26 if $class & 4294967071
400 20 6 unless ($value & 4294967264 or $value == 31)
404 0 6 if $value & 4292870144
418 15 0 unless (defined &_encode)
428 0 0 if $AUTOLOAD =~ /dump/
429 0 0 if defined &{$AUTOLOAD;}
432 0 0 if ($pkg and UNIVERSAL::isa($pkg, 'Convert::ASN1')) { }