| line |
true |
false |
branch |
|
28
|
0 |
2 |
if (my $perltidy_options = delete $args{'perltidy_options'})
|
|
33
|
0 |
2 |
if $args{'skip_all'}
|
|
35
|
0 |
2 |
if exists $args{'mute'}
|
|
60
|
0 |
22 |
unless my $stderr_fh = "IO::File"->new_tmpfile
|
|
75
|
0 |
22 |
unless binmode $stderr_fh, ":encoding(UTF-8)"
|
|
80
|
0 |
22 |
if ($stderr)
|
|
81
|
0 |
0 |
unless ($MUTE)
|
|
93
|
21 |
1 |
if ($code_to_tidy eq $tidied_code) { }
|
|
97
|
0 |
1 |
unless ($MUTE)
|
|
119
|
4 |
0 |
if (@params > 1) { }
|
|
130
|
0 |
4 |
unless -d $path
|
|
136
|
0 |
4 |
unless ref $excludes eq "ARRAY"
|
|
140
|
5 |
8 |
unless (ref $exclude)
|
|
154
|
0 |
1077 |
if $DEBUG
|
|
156
|
72 |
1005 |
if $exclude_me
|
|
158
|
72 |
296 |
if $exclude_me
|
|
159
|
42 |
184 |
if ($fn->is_file and $fn =~ m[(\A|[\\/])cpanfile\z]u || $fn =~ /\.(?:PL|pl|pm|psgi|t)\z/u)
|
|
179
|
0 |
4 |
if ($DEBUG)
|
|
191
|
0 |
22 |
unless -f $filename
|