File Coverage

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

Criterion	Covered	Total	%
statement	35	43	81.4
branch	4	8	50.0
condition	1	3	33.3
subroutine	10	10	100.0
pod	4	4	100.0
total	54	68	79.4

package Geoffrey::Action::Constraint::PrimaryKey;

use utf8;
use 5.016;
use strict;
use warnings;
use Time::HiRes qw/ time /;

$Geoffrey::Action::Constraint::PrimaryKey::VERSION = '0.000205';

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

sub add {
    my ( $self, $s_table_name, $hr_params ) = @_;
    if ( !$self->converter->primary_key ) {
        require Geoffrey::Exception::NotSupportedException;
        Geoffrey::Exception::NotSupportedException::throw_primarykey( 'add', $self->converter );
    }
    my $gentime = time;
    $gentime =~ s/\.//g;
    $hr_params->{name} ||= q~pk_~ . $s_table_name . q~_~ . $gentime;
    require Geoffrey::Utils;
    return Geoffrey::Utils::replace_spare( $self->converter->primary_key->add,
        [ $hr_params->{name}, ( join q/,/, @{ $hr_params->{columns} } ) ] );
}

sub alter {
    my ( $self, $s_table_name, $hr_params ) = @_;
    if ( !$self->converter->primary_key ) {
        require Geoffrey::Exception::NotSupportedException;
        Geoffrey::Exception::NotSupportedException::throw_primarykey( 'alter', $self->converter );
    }
    return [
        $self->drop( $s_table_name, $hr_params ),
        $self->add( $s_table_name, $hr_params ),
    ];
}

sub drop {
    my ( $self, $table, $name, $schema ) = @_;
    if ( !$self->converter->primary_key ) {
        require Geoffrey::Exception::NotSupportedException;
        Geoffrey::Exception::NotSupportedException::throw_primarykey( 'drop', $self->converter );
    }
    require Geoffrey::Utils;
    return Geoffrey::Utils::replace_spare( $self->converter->primary_key->drop($schema),
        [ $table, $name ] );
}

sub list_from_schema {
    my ( $self, $schema ) = @_;
    if ( !$self->converter->primary_key ) {
        require Geoffrey::Exception::NotSupportedException;
        Geoffrey::Exception::NotSupportedException::throw_primarykey( 'list', $self->converter );
    }
    return $self->converter->primary_key_information(
        $self->do_arrayref( $self->converter->primary_key->list($schema), [] ),
    );
}

1;

__END__