Branch Coverage

blib/lib/Test/Vars.pm
Criterion Covered Total %
branch 73 94 77.6


line true false branch
31 0 2 unless (-f $ExtUtils::Manifest::MANIFEST)
37 0 2 unless (@libs)
46 0 1 unless _vars_ok(\&Test::Vars::_results_as_tests, $lib, \%args)
90 165 0 if (defined $pid) { }
91 135 30 if ($pid != 0) { }
116 30 0 if ($file =~ /\./) { }
128 1 29 if (ref $args->{'ignore_vars'} eq 'ARRAY')
132 30 0 unless (exists $args->{'ignore_vars'}{'$self'})
144 30 0 if ($file =~ s[\A (.*\b lib)/][]msx)
149 2 28 if ($@)
172 0 107 if (ref ${$ref;} eq 'CODE')
181 0 107 if ref $ref ne 'GLOB'
188 48 59 if ($hashref || $coderef and $gv->FILE =~ /\Q$file\E\z/msx)
189 0 48 if ($hashref and B::svref_2object($hashref)->NAME) { }
48 0 elsif ($coderef) { }
190 0 0 unless (_check_into_stash($hashref, $file, $args, $results))
196 9 39 unless (_check_into_code($coderef, $args, $results))
212 0 48 if ($cv->XSUB or $cv->ROOT->isa('B::NULL'))
227 382 217 unless defined $p and not $p->{'outside'}
229 16 201 if (not $p->{'count'}) { }
230 4 12 if $args->{'ignore_vars'}{$p->{'name'}}
232 2 10 if (my $cb = $args->{'ignore_if'})
234 2 0 if &$cb($_)
270 0 41 $aelemfast == -1 ? :
300 752 0 if ($padname->can('PVX'))
307 258 1 if (defined $pv and length $pv and $pv ne '&' and $pv ne '$' and not $padname->FLAGS & 16)
311 44 214 $padname->FLAGS & 16777216 ? :
312 44 214 if ($p{'outside'})
333 56 0 if (${$root;}) { }
360 3 3632 if $stringy_eval_seen
363 2931 701 unless defined $padops[$optype]
365 1 700 if ($optype == $op_entereval)
376 76 624 if ($op->isa('B::UNOP_AUX'))
383 0 158 unless do { no warnings; "$i" ne '' }
387 82 76 if $pad->[$i]
394 8 616 if $targ == 0
399 8 608 if ($optype == $op_anoncode) { }
63 545 elsif ($optype == $op_enteriter or ($op->flags & 3) == 1) { }
160 385 elsif ($op->private & 128) { }
401 8 0 if ($anon_cv->CvFLAGS & 32)
407 32 22 if (defined $p and $p->{'outside_padix'})
416 61 2 if (_ckwarn_once($cop))
432 254 80 unless $o->type == $op_null
436 112 50 if $op_svusers[$_->type]
108 52 if (&all(sub { ($_->flags & 3) == 1 if $op_svusers[$_->type]; } , @ops))
437 108 0 if (_ckwarn_once($cop))
455 161 10 if (ref $w eq 'B::SPECIAL') { }