Branch Coverage

blib/lib/B/Disassembler.pm
Criterion Covered Total %
branch 31 150 20.6


line true false branch
23 0 134 unless length $data == $len
30 0 28 unless defined $c
37 0 7 unless length $str == 2
49 0 2 unless defined $c
56 0 32 unless length $str == 4
65 0 5 unless length $str == 4
74 0 0 unless length $str == 4
83 0 17 unless length $str == 4
92 0 48 unless length $str == 4
101 0 10 unless length $str == 4
110 0 0 unless length $str == 4
123 0 15 unless defined $c
133 1 2 if ($len) { }
135 0 1 unless length $str == $len
149 0 2 unless defined $c
159 0 0 unless defined $c
175 0 9 unless length $str == 8
179 1 8 $i > 8 ? :
184 0 9 $B::Disassembler::ivsize == 4 ? :
190 0 0 $B::Disassembler::ptrsize == 8 ? :
197 0 0 if ($B::Disassembler::longsize) { }
198 0 0 $B::Disassembler::longsize == 8 ? :
201 0 0 $B::Disassembler::ivsize == 8 ? :
208 3 0 if ($B::Disassembler::blversion ge '"0.07"')
209 3 0 if ($B::Disassembler::perlversion ge '"5.013"')
228 0 1 if ($] < 5.009) { }
261 0 1 if ($str eq '#! ') { }
269 0 1 if $magic != 1128418384
274 1 0 if ($blversion ge '"0.06_03"')
277 1 0 if ($blversion gt '"0.06"' or $blversion eq '"0.04"')
280 1 0 if ($blversion ge '"0.06_05"')
283 1 0 if ($blversion ge '"0.06_06"')
294 0 0 if (wantarray) { }
308 0 0 if defined $$_
316 0 0 unless $comment
317 0 0 if (defined $arg) { }
319 0 0 if ($insn eq 'newopx' or $insn eq 'ldop' and $] > 5.007) { }
0 0 elsif (not $comment) { }
0 0 elsif ($insn eq 'comment') { }
0 0 elsif ($insn eq 'stpv') { }
0 0 elsif ($insn eq 'newsvx') { }
0 0 elsif ($insn eq 'newpadlx') { }
0 0 elsif ($insn eq 'newpadnlx') { }
0 0 elsif ($insn eq 'newpadnx') { }
0 0 elsif ($insn eq 'gv_stashpvx') { }
0 0 elsif ($insn eq 'ldspecsvx') { }
0 0 elsif ($insn eq 'ldsv') { }
0 0 elsif ($insn eq 'gv_fetchpvx') { }
0 0 elsif ($insn eq 'sv_magic') { }
0 0 elsif ($insn =~ /_flags/) { }
0 0 elsif ($comment and $insn eq 'op_private') { }
0 0 elsif ($insn eq 'op_type' and $] < 5.007) { }
322 0 0 if $comment
331 0 0 if $comment ne '1'
334 0 0 if $comment ne '1'
340 0 0 if $comment ne '1'
344 0 0 if $comment ne '1'
348 0 0 if $comment ne '1'
352 0 0 if $comment ne '1'
356 0 0 if $comment ne '1'
361 0 0 if $comment ne '1'
365 0 0 if $comment ne '1'
369 0 0 if $comment ne '1'
377 0 0 if $comment
378 0 0 if $insn eq 'op_flags' and $comment
390 0 0 if $comment ne '1'
395 0 0 if $comment ne '1'
402 0 0 if (defined $arg) { }
418 0 1 if ($verbose)
424 0 0 if $byteorder
425 0 0 if $longsize
426 0 0 if defined $archflag
427 0 0 if $perlversion
433 0 179 if (not defined $insn or $insn eq 'unused')
440 169 10 if (defined $arg) { }