| blib/lib/Test/Pod.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 17 | 32 | 53.1 |
| line | true | false | branch |
|---|---|---|---|
| 121 | 4 | 4 | @_ ? : |
| 123 | 2 | 6 | unless (-f $file) |
| 137 | 0 | 6 | unless $checker->content_seen |
| 139 | 3 | 3 | unless ($ok) |
| 175 | 0 | 0 | @_ ? : |
| 176 | 0 | 0 | -d $_ ? : |
| 178 | 0 | 0 | unless (@files) |
| 187 | 0 | 0 | unless pod_file_ok($file) |
| 224 | 5 | 3 | if -f $_ and _is_perl($_) |
| 225 | 1 | 0 | @_ ? : |
| 231 | 0 | 0 | if -e 'blib' |
| 239 | 3 | 2 | if $file =~ /[.](?:PL|p(?:[lm]|od)|t)$/ |
| 241 | 0 | 2 | unless open my $fh, '<', $file |
| 244 | 0 | 2 | unless $first |
| 247 | 1 | 1 | if $first =~ /^#!.*perl/ |
| 250 | 1 | 0 | if $file =~ /[.]bat$/i and $first =~ /--[*]-Perl-[*]--/ |