| blib/lib/Test/Spellunker.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 20 | 30 | 66.6 |
| line | true | false | branch |
|---|---|---|---|
| 35 | 0 | 8 | unless pod_file_spelling_ok($file) |
| 41 | 1 | 0 | if -d 'blib' |
| 46 | 0 | 1 | @_ ? : |
| 53 | 12 | 10 | if (-d $file) |
| 54 | 0 | 12 | unless opendir my $dirhandle, $file |
| 59 | 21 | 0 | if $_ ne 'CVS' |
| 65 | 10 | 12 | if (-f $file) |
| 66 | 2 | 8 | unless _is_perl($file) |
| 77 | 0 | 10 | if $file =~ /\.PL$/ |
| 78 | 6 | 4 | if $file =~ /\.p(l|lx|m|od)$/ |
| 79 | 0 | 4 | if $file =~ /\.t$/ |
| 81 | 0 | 4 | unless open my $handle, '<', $file |
| 84 | 2 | 2 | if defined $first and $first =~ /^#!.*perl/ |
| 93 | 0 | 8 | unless (-r $file) |
| 103 | 0 | 8 | unless ($ok) |