File Coverage

blib/lib/ElasticSearchX/Model/Trait/Class.pm

Criterion	Covered	Total	%
statement	11	11	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	15	15	100.0

#
# This file is part of ElasticSearchX-Model
#
# This software is Copyright (c) 2016 by Moritz Onken.
#
# This is free software, licensed under:
#
#   The (three-clause) BSD License
#
package ElasticSearchX::Model::Trait::Class;
$ElasticSearchX::Model::Trait::Class::VERSION = '1.0.2';
use Moose::Role;
use List::Util ();
use Carp;

sub _handles {
    my ( $s, $p ) = @_;
    return {
        "get_$s"        => 'get',
        "get_$p"        => 'values',
        "get_${s}_list" => 'keys',
        "remove_$s"     => 'delete',
        "add_$s"        => 'set',
    };
}
my %foo = (
    analyzer  => 'analyzers',
    tokenizer => 'tokenizers',
    filter    => 'filters'
);
while ( my ( $s, $p ) = each %foo ) {
    has $p => (
        traits  => ['Hash'],
        isa     => 'HashRef',
        default => sub { {} },
        handles => _handles( $s, $p )
    );
}

has indices => (
    traits  => ['Hash'],
    isa     => 'HashRef',
    default => sub { { default => {} } },
    handles => _handles( 'index', 'indices' )
);

before add_index => sub {
    my ( $self, $name, $index ) = @_;
    $self->remove_index('default');
    if ( $index->{alias_for} && $name ne $index->{alias_for} ) {
        return $self->add_index( $index->{alias_for}, $index );
    }
};

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

ElasticSearchX::Model::Trait::Class

=head1 VERSION

version 1.0.2

=head1 AUTHOR

Moritz Onken

=head1 COPYRIGHT AND LICENSE

This software is Copyright (c) 2016 by Moritz Onken.

This is free software, licensed under:

  The (three-clause) BSD License

=cut