File Coverage

blib/lib/Geoffrey/Action/Entry.pm

Criterion	Covered	Total	%
statement	41	43	95.3
branch	13	16	81.2
condition	2	3	66.6
subroutine	8	8	100.0
pod	3	3	100.0
total	67	73	91.7

package Geoffrey::Action::Entry;

use utf8;
use strict;
use warnings;

$Geoffrey::Action::Entry::VERSION = '0.000205';

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

sub _get_sql_abstract {
    my ($self) = @_;
    require SQL::Abstract;
    $self->{sql_abstract} //= SQL::Abstract->new;
    return $self->{sql_abstract};
}

sub add {
    my ( $self, $hr_params ) = @_;

    if ( !$hr_params->{table} ) {
        require Geoffrey::Exception::RequiredValue;
        Geoffrey::Exception::RequiredValue::throw_table_name( __PACKAGE__ . '::add' );
    }
    if ( !$hr_params->{values} ) {
        require Geoffrey::Exception::RequiredValue;
        Geoffrey::Exception::RequiredValue::throw_values( __PACKAGE__ . '::add' );
    }

    my ( $s_stmt, @a_bindings ) = $self->_get_sql_abstract->insert(
        ( $hr_params->{schema} ? $hr_params->{schema} . q/./ : q// ) . $hr_params->{table},
        $hr_params->{values}->[0],
    );

    return $self->do_prepared( $s_stmt, \@a_bindings );
}

sub alter {
    my ( $self, $s_table_name, $hr_where, $ar_values ) = @_;

    if ( !$s_table_name ) {
        require Geoffrey::Exception::RequiredValue;
        Geoffrey::Exception::RequiredValue::throw_table_name( __PACKAGE__ . '::alter' );
    }

    if ( !$hr_where ) {
        require Geoffrey::Exception::RequiredValue;
        Geoffrey::Exception::RequiredValue::throw_where_clause( __PACKAGE__ . '::alter' );
    }

    my ( $s_stmt, @a_bindings ) = $self->_get_sql_abstract->update( $s_table_name, $ar_values->[0], $hr_where );

    return $self->do_prepared( $s_stmt, \@a_bindings );
}

sub drop {
    my ( $self, $hr_params ) = @_;
    if ( !$hr_params->{table} ) {
        require Geoffrey::Exception::RequiredValue;
        Geoffrey::Exception::RequiredValue::throw_table_name( __PACKAGE__ . '::drop' );
    }
    if ( !$hr_params->{conditions} ) {
        require Geoffrey::Exception::RequiredValue;
        Geoffrey::Exception::RequiredValue::throw_where_clause( __PACKAGE__ . '::drop' );
    }

    my ( $s_stmt, @a_bindings ) = $self->_get_sql_abstract->delete(
        ( $hr_params->{schema} ? $hr_params->{schema} . q/./ : q// ) . $hr_params->{table},
        $hr_params->{conditions},
    );
    return $self->do_prepared( $s_stmt, \@a_bindings );
}

1;

__END__