File Coverage

blib/lib/Geoffrey/Action/Constraint/Index.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	4	4	100.0
condition			n/a
subroutine	9	9	100.0
pod	4	4	100.0
total	45	45	100.0

package Geoffrey::Action::Constraint::Index;

use utf8;
use 5.016;
use strict;
use warnings;

use parent 'Geoffrey::Role::Action';

$Geoffrey::Action::Constraint::Index::VERSION = '0.000204';

sub add {
    my ( $self, $hr_params ) = @_;
    return $self->do( $self->converter->index->add($hr_params) );
}

sub alter {
    my ( $self, $hr_params ) = @_;
    return [ $self->drop($hr_params), $self->add($hr_params) ];
}

sub drop {
    my ( $self, $hr_params ) = @_;
    require Ref::Util;
    my $s_name = Ref::Util::is_hashref($hr_params) ? $hr_params->{name} : undef;
    if ( !$s_name ) {
        require Geoffrey::Exception::RequiredValue;
        Geoffrey::Exception::RequiredValue::throw_index_name('to drop');
    }
    return $self->do( $self->converter->index->drop($s_name) );
}

sub list_from_schema {
    my ( $self, $schema ) = @_;
    my $converter = $self->converter;
    return $converter->index_information( $self->do_arrayref( $converter->index->list($schema) ) );

}

1;

__END__