File Coverage

blib/lib/Geoffrey/Action/View.pm

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

package Geoffrey::Action::View;

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

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

$Geoffrey::Action::View::VERSION = '0.000204';

sub add {
    my ( $self, $params ) = @_;
    require Geoffrey::Utils;
    my $sql = Geoffrey::Utils::replace_spare( $self->converter->view->add,
        [ $params->{name}, $params->{as} ] );
    return $self->do($sql);
}

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

sub drop {
    my ( $self, $hr_params ) = @_;
    require Geoffrey::Utils;
    require Ref::Util;
    my $s_name = Ref::Util::is_hashref($hr_params) ? delete $hr_params->{name} : $hr_params;
    if ( !$s_name ) {
        require Geoffrey::Exception::General;
        Geoffrey::Exception::General::throw_no_table_name('to drop');
    }
    return $self->do( Geoffrey::Utils::replace_spare( $self->converter->view->drop, [$s_name] ) );
}

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

1;

__END__