| line |
true |
false |
branch |
|
71
|
0 |
0 |
if ($app->{'help'} or not @$argv) |
|
77
|
0 |
0 |
if ($app->{'no_stderr'}) |
|
82
|
0 |
0 |
unless $app->{'no_auto_libdir'} |
|
85
|
0 |
0 |
if (@res) { } |
|
86
|
0 |
0 |
unless @res == 1 and ($res[0] // '') eq '' |
|
105
|
0 |
0 |
unless -e (my $fn = 'App::perlminlint'->catdir(@dirs, $lookfor)) |
|
107
|
0 |
0 |
if &$code($_ = $fn) |
|
119
|
0 |
0 |
if (not $self->{'_lib_dict'}{$libdir}) |
|
127
|
0 |
0 |
if (-d $libdir) |
|
133
|
0 |
0 |
if (-d $carton) |
|
151
|
0 |
0 |
if ($self->{'verbose'}) |
|
156
|
0 |
0 |
if ($@) |
|
161
|
0 |
0 |
if (not $yaml->[0] and ref $yaml->[0] eq 'HASH') |
|
171
|
0 |
0 |
if ($fn =~ /\P{ASCII}/ and not &is_utf8($fn)) |
|
178
|
0 |
0 |
if (my $obj = $self->apply_to($plugin, 'handle_match', $fn)) { } |
|
|
0 |
0 |
elsif ($plugin->is_generic) { } |
|
180
|
0 |
0 |
unless my(@res) = $obj->handle_test($fn) |
|
191
|
0 |
0 |
unless (@fallback) |
|
197
|
0 |
0 |
unless my(@res) = $self->apply_to($plugin, 'handle_test', $fn) |
|
216
|
0 |
0 |
wantarray ? : |
|
222
|
0 |
0 |
unless $self->{'no_widechar'} |
|
223
|
0 |
0 |
unless $self->{'no_force_strict'} |
|
226
|
0 |
0 |
if ($self->{'verbose'} or $self->{'dryrun'}) |
|
229
|
0 |
0 |
if ($self->{'dryrun'}) |
|
232
|
0 |
0 |
unless system($^X, @opts, @_) == 0 |
|
259
|
0 |
0 |
if (not defined $_[0]) { } |
|
|
0 |
0 |
elsif (not ref $_[0]) { } |
|
260
|
0 |
0 |
wantarray ? : |
|
278
|
0 |
0 |
if (@modpath) |
|
293
|
0 |
0 |
if (grep {$_ eq '-T';} @shbang) |
|
302
|
0 |
0 |
unless my($shbang) = $_[0] =~ /^(\#![^\n]+)/ |
|
313
|
0 |
0 |
if ($special_re and $list->[0] =~ /$special_re/) { } |
|
|
0 |
0 |
elsif (my($k, $v) = $list->[0] =~ /^--?(\w[-\w]*)(?:=(.*))?/) { } |
|
318
|
0 |
0 |
if $opt eq '' |