| line |
true |
false |
branch |
|
24
|
1 |
3 |
if ($args{'skip_all'})
|
|
30
|
2 |
1 |
unless $args{'no_plan'}
|
|
37
|
8 |
1 |
if ($ok) { }
|
|
62
|
0 |
12 |
unless my $stderr_fh = "IO::File"->new_tmpfile
|
|
82
|
11 |
1 |
unless ($stderr)
|
|
86
|
9 |
2 |
if ($code_to_tidy eq $tidied_code) { }
|
|
104
|
1 |
12 |
unless (defined $code_to_tidy)
|
|
105
|
0 |
1 |
if ($args{'return_diff_object'}) { }
|
|
121
|
0 |
12 |
if ($args{'return_diff_object'})
|
|
126
|
0 |
12 |
$args{'mute'} ? :
|
|
130
|
1 |
11 |
if ($diff->stderr)
|
|
137
|
9 |
2 |
if ($diff->is_tidy) { }
|
|
154
|
4 |
5 |
if (@_ > 1) { }
|
|
165
|
1 |
8 |
unless -e $path
|
|
166
|
1 |
7 |
unless -d $path
|
|
170
|
1 |
6 |
unless ref $excludes eq "ARRAY"
|
|
178
|
36 |
24 |
if -d $filename
|
|
181
|
20 |
4 |
ref $exclude ? :
|
|
|
7 |
17 |
if ref $exclude ? $path =~ /$exclude/u : $path =~ /^$exclude/u
|
|
183
|
17 |
0 |
if $filename =~ /\.(?:pl|pm|PL|t)$/u
|
|
195
|
4 |
13 |
unless defined $filename and -f $filename
|