| 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 |
18 |
unless my $stderr_fh = "IO::File"->new_tmpfile
|
|
75
|
0 |
18 |
unless binmode $stderr_fh, ":encoding(UTF-8)"
|
|
80
|
0 |
18 |
if ($stderr)
|
|
81
|
0 |
0 |
unless ($MUTE)
|
|
93
|
17 |
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 |
819 |
if $DEBUG
|
|
156
|
72 |
747 |
if $exclude_me
|
|
158
|
72 |
217 |
if $exclude_me
|
|
159
|
34 |
183 |
if ($fn->is_file and $fn =~ /\.(?:pl|pm|PL|t)\z/u)
|
|
171
|
0 |
4 |
if ($DEBUG)
|
|
183
|
0 |
18 |
unless -f $filename
|