view release on metacpan or  search on metacpan

lib/DBIx/Class/BatchUpdate/Batch.pm  view on Meta::CPAN

package DBIx::Class::BatchUpdate::Batch;
$DBIx::Class::BatchUpdate::Batch::VERSION = '1.004';
use Moo;
use true;

has key_value => ( is => "ro", required => 1 );
has resultset => ( is => "ro", required => 1 );
has key       => ( is => "ro", required => 1 );
has pk_column => ( is => "ro", required => 1 );

has ids => ( is => "lazy" );
sub _build_ids { [] }

sub update {
    my $self = shift;
    $self->resultset
        ->search({ $self->pk_column => { -in => $self->ids } })
        ->update( $self->key_value );
}