| line |
true |
false |
branch |
|
41
|
0 |
0 |
$opt->root ? :
|
|
70
|
0 |
0 |
if ($opt->verbose and $opt->no_violation)
|
|
90
|
0 |
0 |
if ($opt->dry_run) { }
|
|
111
|
0 |
0 |
if ($path->is_file) { }
|
|
|
0 |
0 |
elsif (-l $path) { }
|
|
116
|
0 |
0 |
unless is_perl_file($path->stringify)
|
|
121
|
0 |
0 |
if (&$predicate($root, $path)) { }
|
|
122
|
0 |
0 |
if $verbose
|
|
126
|
0 |
0 |
if $verbose
|
|
139
|
0 |
0 |
if (my $ignore = $App::Critique::CONFIG{'IGNORE'})
|
|
184
|
0 |
0 |
if ($filter and not $match and not $no_violation) { }
|
|
|
0 |
0 |
elsif ($filter and $match and not $no_violation) { }
|
|
|
0 |
0 |
elsif ($filter and $match and $no_violation) { }
|
|
|
0 |
0 |
elsif ($filter and not $match and $no_violation) { }
|
|
|
0 |
0 |
elsif (not $filter and $match and not $no_violation) { }
|
|
|
0 |
0 |
elsif (not $filter and $match and $no_violation) { }
|
|
|
0 |
0 |
elsif (not $filter || $match and $no_violation) { }
|
|
275
|
0 |
0 |
if $file =~ / [.] swp \z/msx
|
|
276
|
0 |
0 |
if $file =~ / [.] bak \z/msx
|
|
277
|
0 |
0 |
if $file =~ / ~ \z/msx
|
|
278
|
0 |
0 |
if $file =~ / \A [#] .+ [#] \z/msx
|
|
281
|
0 |
0 |
if $file =~ / [.] PL \z/msx
|
|
282
|
0 |
0 |
if $file =~ / [.] p[lm] \z/msx
|
|
283
|
0 |
0 |
if $file =~ / [.] t \z/msx
|
|
284
|
0 |
0 |
if $file =~ / [.] psgi \z/msx
|
|
285
|
0 |
0 |
if $file =~ / [.] cgi \z/msx
|
|
290
|
0 |
0 |
unless open my $fh, '<', $file
|
|
295
|
0 |
0 |
if defined $first and $first =~ / \A [#]!.*perl /msx
|