| t/pod.t | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| statement | n/a | ||
| branch | n/a | ||
| condition | n/a | ||
| subroutine | n/a | ||
| pod | n/a | ||
| total | n/a | ||
| line | stmt | bran | cond | sub | pod | time | code |
|---|---|---|---|---|---|---|---|
| 1 | use Test::More; | ||||||
| 2 | my @files = glob("*.pm"); | ||||||
| 3 | my $n = @files; | ||||||
| 4 | |||||||
| 5 | eval 'use Test::Pod'; | ||||||
| 6 | if ($@) { | ||||||
| 7 | plan skip_all => "You don't have Test::Pod installed"; | ||||||
| 8 | } else { | ||||||
| 9 | plan tests => $n; | ||||||
| 10 | |||||||
| 11 | } | ||||||
| 12 | |||||||
| 13 | for my $file (@files) { | ||||||
| 14 | pod_file_ok($file, "POD for '$file'"); | ||||||
| 15 | } |