view release on metacpan or  search on metacpan

lib/Monorail/Change/AlterView.pm  view on Meta::CPAN

package Monorail::Change::AlterView;
$Monorail::Change::AlterView::VERSION = '0.4';
use Moose;
use SQL::Translator::Schema::View;

with 'Monorail::Role::Change::StandardSQL';

has name   => (is => 'ro', isa => 'Str',           required => 1);
has fields => (is => 'ro', isa => 'ArrayRef[Str]', required => 1);
has sql    => (is => 'ro', isa => 'Str',           required => 1);

__PACKAGE__->meta->make_immutable;

sub as_hashref_keys {
    return qw/name fields sql/;
}

sub as_sql {
    my ($self) = @_;

    my $view = $self->as_sql_translator_view;

    return $self->producer->alter_view($view);
}

sub as_sql_translator_view {
    my ($self) = @_;

    return SQL::Translator::Schema::View->new(
        name   => $self->name,
        fields => $self->fields,
        sql    => $self->sql,
    );
}

sub transform_schema {
    my ($self, $schema) = @_;

    $schema->drop_view($self->name);
    $schema->add_view($self->as_sql_translator_view)
}

1;