use strict;
use warnings;

use Test::More;
use Test::Pod::Coverage 1.04;
use Pod::Coverage::Moose;

my %Exclude
    = map { $_ => 1 }
    qw( Fey::Hash::ColumnsKey Fey::Meta::Method::Constructor Fey::Meta::Role::FromSelect );

my @mods = grep { !$Exclude{$_} } Test::Pod::Coverage::all_modules();

plan tests => scalar @mods;

my %Trustme = (
    'Fey::ORM::Schema'              => qr/^init_meta$/,
    'Fey::ORM::Table'               => qr/^init_meta$/,
    'Fey::Meta::Method::FromSelect' => qr/^new$/,
);

for my $mod (@mods) {
    my @trustme = qr/^BUILD$/;
    push @trustme, $Trustme{$mod} if $Trustme{$mod};

    pod_coverage_ok(
        $mod, {
            coverage_class => 'Pod::Coverage::Moose',
            trustme        => \@trustme,
        },
        "pod coverage for $mod"
    );
}