Branch Coverage

blib/lib/B/Assembler.pm
Criterion Covered Total %
branch 58 140 41.4


line true false branch
48 16 147 if ($val < $lo or $hi < $val)
60 0 30 if @_ < 1
63 0 30 if (defined $c) { }
64 0 0 if (length $c != 1)
77 0 9 if @_ < 1
83 0 36 if @_ < 1
89 0 7 if @_ < 1
95 0 2 if @_ < 1
101 0 81 if @_ < 1
113 0 17 if @_ < 1
116 1 16 unless (defined $str)
118 1 0 unless $callstack[3] eq 'B::PADNAME::ix'
122 1 16 if ($str =~ s/\0//g)
132 1 4 if defined $arg
137 0 4 if @_ < 1
140 1 3 unless (defined $str)
150 0 3 unless defined $arg
151 1 2 if ($arg =~ s/\n//g)
157 0 0 if @_ < 1
163 1 6 if defined $arg
168 0 2 if @_ < 1
174 0 9 if @_ < 1
179 0 9 $B::Assembler::Config{'ivsize'} == 4 ? :
183 0 0 $B::Assembler::Config{'ptrsize'} == 8 ? :
187 0 0 $B::Assembler::Config{'longsize'} == 8 ? :
191 0 0 $B::Assembler::Config{'longsize'} == 8 ? :
195 0 5 $] < 5.013 ? :
210 32 22 unless $s =~ s/^"// and $s =~ s/"$//
211 0 1 length $1 == 3 ? :
230 204 0 if $line eq $stmt
261 1 0 if (exists $header->{'longsize'})
265 1 0 if (exists $header->{'archflag'})
268 1 0 if (exists $header->{'perlversion'})
293 1 0 if ($blversion ge '0.06_03')
297 0 1 if ($] < 5.007)
301 0 0 $s == 8 ? :
0 0 $t eq 'long' ? :
302 0 0 if ($s == 4 or $s == 8) { }
312 1 0 if ($blversion ge '0.06_05')
314 0 1 if $B::Assembler::Config{'useithreads'}
315 0 1 if $B::Assembler::Config{'usemultiplicity'}
318 1 0 if ($blversion ge '0.06_06')
334 193 11 if (defined $arg)
335 9 184 if ($arg =~ s/^0x(?=[0-9a-fA-F]+$)//) { }
0 184 elsif ($arg =~ s/^0(?=[0-7]+$)//) { }
0 184 elsif ($arg =~ /^pp_/) { }
344 0 0 if (defined $opnum) { }
360 203 1 if (defined $data) { }
362 0 203 unless $putsub
363 0 203 unless $putsub
386 0 1 unless ref $outsub eq 'CODE'
388 0 1 if ref $out
400 1 0 if ($errors)
413 0 204 if ($debug)
420 204 0 if ($line) { }
0 0 elsif ($debug and $comment) { }
422 0 0 if ($debug and not $comment and $insn =~ /_flags/)
426 0 204 if ($debug)
439 0 0 if $_[0] =~ /\s*\W/
440 0 0 if (defined $_[1])
442 0 0 if $_[1] eq '0' and not $_[0] =~ /^(?:ldsv|stsv|newsvx?|newpad.*|av_pushx?|av_extend|xav_flags)$/
444 0 0 if $_[1] eq '1' and $] > 5.007 and $_[0] =~ /^(?:sv_refcnt)$/
447 0 0 if ($] < 5.007)
448 0 0 if ($insn eq 'newsvx') { }
0 0 elsif ($insn eq 'newopx') { }
0 0 elsif ($insn eq 'av_pushx') { }
0 0 elsif ($insn eq 'ldspecsvx') { }
0 0 elsif ($insn eq 'gv_stashpvx') { }
0 0 elsif ($insn eq 'gv_fetchpvx') { }
0 0 elsif ($insn eq 'main_cv') { }