| 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 (@args > 1) { }
|
|
130
|
0 |
4 |
unless -d $path
|
|
136
|
0 |
4 |
unless ref $excludes eq "ARRAY"
|
|
141
|
72 |
217 |
if $_->is_file and /[.](?:pl|pm|PL|t)\z/u
|
|
151
|
93 |
86 |
ref $exclude ? :
|
|
154
|
38 |
141 |
if ($exclude_me)
|
|
156
|
0 |
38 |
if $args{'debug'}
|
|
165
|
0 |
4 |
if ($args{'debug'})
|
|
177
|
0 |
18 |
unless -f $filename
|