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 '' |