The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
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 : ());
}