Branch Coverage

blib/lib/Test/Vars.pm
Criterion Covered Total %
branch 72 92 78.2


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 161 0 if (defined $pid) { }
91 133 28 if ($pid != 0) { }
116 28 0 if ($file =~ /\./) { }
128 1 27 if (ref $args->{'ignore_vars'} eq 'ARRAY')
132 28 0 unless (exists $args->{'ignore_vars'}{'$self'})
144 28 0 if ($file =~ s[\A (.*\b lib)/][]msx)
149 2 26 if ($@)
172 0 109 if ref $ref ne 'GLOB'
179 46 63 if ($hashref || $coderef and $gv->FILE =~ /\Q$file\E\z/msx)
180 0 46 if ($hashref and B::svref_2object($hashref)->NAME) { }
46 0 elsif ($coderef) { }
181 0 0 unless (_check_into_stash($hashref, $file, $args, $results))
187 9 37 unless (_check_into_code($coderef, $args, $results))
203 0 46 if ($cv->XSUB or $cv->ROOT->isa('B::NULL'))
218 364 213 unless defined $p and not $p->{'outside'}
220 15 198 if (not $p->{'count'}) { }
221 3 12 if $args->{'ignore_vars'}{$p->{'name'}}
223 2 10 if (my $cb = $args->{'ignore_if'})
225 2 0 if &$cb($_)
261 0 38 $aelemfast == -1 ? :
291 729 0 if ($padname->can('PVX'))
298 254 1 if (defined $pv and length $pv and $pv ne '&' and $pv ne '$' and not $padname->FLAGS & 16)
302 44 210 $padname->FLAGS & 16777216 ? :
303 44 210 if ($p{'outside'})
324 54 0 if (${$root;}) { }
351 3 3527 if $stringy_eval_seen
354 2839 688 unless defined $padops[$optype]
356 1 687 if ($optype == $op_entereval)
367 74 613 if ($op->isa('B::UNOP_AUX'))
374 0 154 unless do { no warnings; "$i" ne '' }
378 80 74 if $pad->[$i]
385 8 605 if $targ == 0
390 8 597 if ($optype == $op_anoncode) { }
61 536 elsif ($optype == $op_enteriter or ($op->flags & 3) == 1) { }
159 377 elsif ($op->private & 128) { }
392 8 0 if ($anon_cv->CvFLAGS & 32)
398 32 22 if (defined $p and $p->{'outside_padix'})
407 59 2 if (_ckwarn_once($cop))
423 253 80 unless $o->type == $op_null
427 111 50 if $op_svusers[$_->type]
107 52 if (&all(sub { ($_->flags & 3) == 1 if $op_svusers[$_->type]; } , @ops))
428 107 0 if (_ckwarn_once($cop))
446 158 10 if (ref $w eq 'B::SPECIAL') { }