| line |
true |
false |
branch |
|
36
|
4 |
3 |
if $SPELLCHECKER |
|
49
|
3 |
0 |
if (ref $dryrun_results) |
|
71
|
1 |
3 |
if length $errors |
|
76
|
3 |
13 |
if ($ok) |
|
81
|
0 |
3 |
unless $SPELLCHECKER |
|
90
|
3 |
1 |
if $dryrun |
|
120
|
0 |
4 |
unless (-r $file) |
|
139
|
1 |
2 |
unless ($ok) |
|
149
|
0 |
0 |
unless (has_working_spellchecker()) |
|
158
|
0 |
0 |
unless pod_file_spelling_ok($file) |
|
160
|
0 |
0 |
if (keys %ALL_WORDS) |
|
177
|
0 |
0 |
@_ ? : |
|
184
|
0 |
0 |
if (-d $file) |
|
185
|
0 |
0 |
unless opendir my $dirhandle, $file |
|
190
|
0 |
0 |
if $_ ne 'CVS' |
|
196
|
0 |
0 |
if (-f $file) |
|
197
|
0 |
0 |
unless _is_perl($file) |
|
198
|
0 |
0 |
unless &$FILE_FILTER($file) |
|
207
|
0 |
0 |
if -d 'blib' |
|
214
|
0 |
0 |
if $file =~ /\.PL$/ |
|
215
|
0 |
0 |
if $file =~ /\.p(l|lx|m|od)$/ |
|
216
|
0 |
0 |
if $file =~ /\.t$/ |
|
218
|
0 |
0 |
unless open my $handle, '<', $file |
|
221
|
0 |
0 |
if defined $first and $first =~ /^#!.*perl/ |
|
236
|
0 |
1 |
if $word =~ /\s/ or $word =~ /:/ |