use strict;
use Test::More;
eval "use Test::Pod::Coverage 1.08";
plan skip_all => "Test::Pod::Coverage 1.08 required for testing POD coverage"
if $@;
## Eventually we would be able to test coverage for all modules with
## Test::Pod::all_pod_files(), but let's write the docs first.
my %modules = (
'TheSchwartz' => {
also_private => [
map {qr{ \A $_ \z }xms}
qw(
current_job debug driver_for funcid_to_name funcname_to_id
handle_from_string hash_databases insert_job_to_driver
is_database_dead mark_database_as_dead reset_abilities
restore_full_abilities set_current_job shuffled_databases
temporarily_remove_ability
)
],
},
'TheSchwartz::Worker' => 1,
'TheSchwartz::Job' => 1,
);
plan tests => scalar keys %modules;
while ( my ( $module, $params ) = each %modules ) {
pod_coverage_ok( $module, ref $params ? $params : () );
}