make failures more verbose
Breno G. de Oliveira
3 years ago
| 3 | 3 | |
| 4 | 4 | my $success = eval "use Test::Pod::Coverage 1.04; 1"; |
| 5 | 5 | if ($success) { |
| 6 | plan tests => 17; | |
| 6 | plan tests => 21; | |
| 7 | 7 | foreach my $m (grep $_ !~ /(?:SCALAR|LVALUE|ARRAY|CODE|VSTRING|REF|GLOB|HASH|FORMAT|GenericClass|Regexp|Common)\z/, all_modules()) { |
| 8 | my $params; | |
| 8 | my $params = {}; | |
| 9 | 9 | if ($m =~ /\AData::Printer::Theme::/) { |
| 10 | 10 | $params = { also_private => [qr/\Acolors\z/] }; |
| 11 | 11 | } |
| 12 | 12 | elsif ($m =~ /\AData::Printer::Profile::/) { |
| 13 | 13 | $params = { also_private => [qr/\Aprofile\z/] }; |
| 14 | 14 | } |
| 15 | pod_coverage_ok($m, $params); | |
| 15 | pod_coverage_ok($m, $params, "$m is covered"); | |
| 16 | 16 | } |
| 17 | 17 | } |
| 18 | 18 | else { |