| line |
true |
false |
branch |
|
67
|
0 |
0 |
if ($app->{'help'} or not @$argv) |
|
73
|
0 |
0 |
if ($app->{'no_stderr'}) |
|
78
|
0 |
0 |
unless $app->{'no_auto_libdir'} |
|
81
|
0 |
0 |
if (@res) { } |
|
82
|
0 |
0 |
unless @res == 1 and ($res[0] // '') eq '' |
|
101
|
0 |
0 |
unless -e (my $fn = 'App::perlminlint'->catdir(@dirs, $lookfor)) |
|
103
|
0 |
0 |
if &$code($_ = $fn) |
|
115
|
0 |
0 |
if (-d $libdir) |
|
116
|
0 |
0 |
unless ($self->{'_lib_dict'}{$libdir}) |
|
134
|
0 |
0 |
if ($self->{'verbose'}) |
|
139
|
0 |
0 |
if ($@) |
|
144
|
0 |
0 |
if (not $yaml->[0] and ref $yaml->[0] eq 'HASH') |
|
157
|
0 |
0 |
if (my $obj = $self->apply_to($plugin, 'handle_match', $fn)) { } |
|
|
0 |
0 |
elsif ($plugin->is_generic) { } |
|
159
|
0 |
0 |
unless my(@res) = $obj->handle_test($fn) |
|
170
|
0 |
0 |
unless (@fallback) |
|
176
|
0 |
0 |
unless my(@res) = $self->apply_to($plugin, 'handle_test', $fn) |
|
195
|
0 |
0 |
wantarray ? : |
|
203
|
0 |
0 |
if ($self->{'verbose'} or $self->{'dryrun'}) |
|
206
|
0 |
0 |
if ($self->{'dryrun'}) |
|
209
|
0 |
0 |
unless system($^X, @opts, @_) == 0 |
|
236
|
0 |
0 |
if (not defined $_[0]) { } |
|
|
0 |
0 |
elsif (not ref $_[0]) { } |
|
237
|
0 |
0 |
wantarray ? : |
|
255
|
0 |
0 |
if (@modpath) |
|
270
|
0 |
0 |
if (grep {$_ eq '-T';} @shbang) |
|
279
|
0 |
0 |
unless my($shbang) = $_[0] =~ /^(\#![^\n]+)/ |
|
290
|
0 |
0 |
if ($special_re and $list->[0] =~ /$special_re/) { } |
|
|
0 |
0 |
elsif (my($k, $v) = $list->[0] =~ /^--?(\w[-\w]*)(?:=(.*))?/) { } |
|
295
|
0 |
0 |
if $opt eq '' |