package MetaCPAN::Model;

# load order important
use Moose;

use ElasticSearchX::Model;
use MetaCPAN::ESConfig qw(es_config);
use Module::Runtime    qw(require_module use_package_optimistically);

my %indexes;
my $docs = es_config->documents;
for my $name ( sort keys %$docs ) {
    my $doc   = $docs->{$name};
    my $model = $doc->{model}
        or next;
    require_module($model);
    use_package_optimistically( $model . '::Set' );
    my $index = $doc->{index}
        or die "no index for $name documents!";

    $indexes{$index}{types}{$name} = $model->meta;
}

for my $index ( sort keys %indexes ) {
    index $index => %{ $indexes{$index} };
}

sub doc {
    my ( $self, $doc ) = @_;
    my $doc_config = es_config->documents->{$doc};
    return $self->index( $doc_config->{index} )->type( $doc_config->{type} );
}

__PACKAGE__->meta->make_immutable;
1;

__END__