1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
use strict;
use warnings;
use Test::More;
use Pod::Coverage 0.19;
use Test::Pod::Coverage 1.04;
my @modules = all_modules;
our @private = ( 'BUILD' );
foreach my $module (@modules) {
local @private = (@private, 'expand_class_name', 'make', 'set_error', 'registry_get', 'registry_set', 'registry_has', 'error') if $module =~ /^Message::Passing::DSL::Factory$/;
local @private = (@private, qw/get_config_from_file new_with_options configfile decoder encoder error filter output/) if $module =~ /^Message::Passing$/;
local @private = (@private, 'make_variant') if $module =~ /^Message::Passing::Role::CLIComponent$/;
local @private = (@private, 'HOSTNAME') if $module eq 'Message::Passing::Filter::ToLogstash';
local @private = (@private, 'HOSTNAME') if $module eq 'Message::Passing::Input::FileTail';
pod_coverage_ok($module, {
also_private => \@private,
coverage_class => 'Pod::Coverage::TrustPod',
});
}
done_testing;
|
