| line |
true |
false |
branch |
|
53
|
0 |
0 |
if (not $Strict and $v < 5.01) |
|
54
|
0 |
0 |
if $Verbose |
|
57
|
0 |
0 |
if $Verbose |
|
66
|
0 |
0 |
$v ? : |
|
68
|
0 |
0 |
unless ($f =~ m[^\w+(?:[/-]\w+)*[.]p[lmh]$]) |
|
72
|
0 |
0 |
if ($B::Walker::Sub eq 'BEGIN' and not $INC{$f} and $B::Walker::Opname ne 'autouse') |
|
76
|
0 |
0 |
if (not $Strict and grep {$f =~ /$_/;} @Skip) |
|
77
|
0 |
0 |
if $Verbose |
|
80
|
0 |
0 |
if ($B::Walker::Sub eq 'BEGIN' and $INC{$f}) |
|
83
|
0 |
0 |
if (not $Strict and $B::Walker::BlockData{'Eval'}) |
|
87
|
0 |
0 |
if ($Relaxed and $B::Walker::Level > 4) |
|
91
|
0 |
0 |
if $Verbose |
|
92
|
0 |
0 |
if ($prevDepF and $prevDepF ne $f) |
|
96
|
0 |
0 |
if ($v) { } |
|
103
|
0 |
0 |
if $prevDepF |
|
109
|
0 |
0 |
unless (eval {
do {
local $SIG{'__DIE__'};
require Encode
}
}) |
|
113
|
0 |
0 |
unless (my $e = Encode::resolve_alias($enc)) |
|
117
|
0 |
0 |
unless (my $mod = $Encode::ExtModule{$e} || $Encode::ExtModule{lc $e}) |
|
129
|
0 |
0 |
if ($1 eq 'encoding') |
|
139
|
0 |
0 |
unless $$op |
|
140
|
0 |
0 |
unless $$op |
|
141
|
0 |
0 |
unless $$op and $op->name eq 'const' |
|
142
|
0 |
0 |
unless $sv->can('PV') |
|
145
|
0 |
0 |
if ($opname eq 'open') |
|
146
|
0 |
0 |
unless $arg2 =~ s/^[+]?[<>]+// |
|
147
|
0 |
0 |
unless $$op |
|
148
|
0 |
0 |
if ($op->name eq 'srefgen') |
|
158
|
0 |
0 |
unless $op->first->name eq 'const' |
|
161
|
0 |
0 |
defined $v ? : |
|
173
|
0 |
0 |
if (ref $sv eq 'B::SPECIAL') { } |
|
174
|
0 |
0 |
if ($$sv == ${B::sv_yes();}) { } |
|
|
0 |
0 |
elsif ($$sv == ${B::sv_no();}) { } |
|
192
|
0 |
0 |
unless my(@args) = grok_args $op |
|
194
|
0 |
0 |
if ($class eq 'base' or $class eq 'parent') { } |
|
|
0 |
0 |
elsif ($class eq 'autouse') { } |
|
|
0 |
0 |
elsif ($class eq 'encoding') { } |
|
|
0 |
0 |
elsif ($class eq 'overload') { } |
|
|
0 |
0 |
elsif ($class eq 'if') { } |
|
|
0 |
0 |
elsif ($args[0] =~ /^\d/) { } |
|
199
|
0 |
0 |
if (-f "$_/$f") |
|
212
|
0 |
0 |
if $Config::Config{'useperlio'} |
|
213
|
0 |
0 |
if $args[0] =~ /^[^:]/ |
|
214
|
0 |
0 |
if grep {$_ eq 'Filter';} @args |
|
221
|
0 |
0 |
if $args[0] |
|
228
|
0 |
0 |
if $v |
|
234
|
0 |
0 |
unless $op->name eq 'const' |
|
237
|
0 |
0 |
unless $version |
|
245
|
0 |
0 |
if ($class eq 'IO::File') |
|
246
|
0 |
0 |
if ($op->name eq 'srefgen') |
|
261
|
0 |
0 |
unless $INC{'Moose.pm'} |
|
265
|
0 |
0 |
unless $m =~ /^\w+(?:::\w+)+\z/ |
|
274
|
0 |
0 |
unless $INC{'Try/Tiny.pm'} |
|
276
|
0 |
0 |
unless $op->name eq 'refgen' |
|
278
|
0 |
0 |
unless $op->name eq 'anoncode' |
|
285
|
0 |
0 |
if $TryCV{$$B::Walker::CV} |
|
298
|
0 |
0 |
unless ${$op->sibling;} |
|
302
|
0 |
0 |
if $op->name eq 'method' or $op->name eq 'method_named' |
|
306
|
0 |
0 |
if ($op->name eq 'method_named') { } |
|
|
0 |
0 |
elsif ($op->first->name eq 'gv') { } |
|
308
|
0 |
0 |
unless $methods{$method} |
|
309
|
0 |
0 |
unless $args->name eq 'const' |
|
311
|
0 |
0 |
unless $sv->can('PV') |
|
320
|
0 |
0 |
unless $funcs{$func} |
|
328
|
0 |
0 |
unless $op->private & 128 |
|
331
|
0 |
0 |
unless $padsv->can('PV') |
|
332
|
0 |
0 |
if $padsv->PV eq '$_' |
|
333
|
1 |
0 |
defined &B::OPpPAD_STATE ? : |
|
335
|
0 |
0 |
if $op->private & 16 |
|
345
|
0 |
0 |
unless $filetests{$op->next->name} |
|
346
|
0 |
0 |
if $filetests{$op->first->name} |
|
374
|
0 |
0 |
unless $opt =~ /^-(?:s|-?strict)$/ and $Strict = 1 or $opt =~ /^-(?:r|-?relaxed)$/ and $Relaxed = 1 or $opt =~ /^-(?:v|-?verbose)$/ and $Verbose = 1 or $opt =~ /^-(?:d|-?debug)$/ and $Verbose = $Debug = 1 |
|
380
|
0 |
0 |
if $Strict and $Relaxed |
|
392
|
0 |
0 |
unless $Relaxed |
|
398
|
0 |
1 |
if $B::Walker::BlockData{'Eval'} |