view release on metacpan or  search on metacpan

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

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 );
}

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

            # Assume the pk isn't dirty
            map {
                my $value = $key_value->{$_};
                $_ => defined($value) ? "$value" : undef;
            }
            keys %$key_value,
        },
    );
}

sub update {
    my $self = shift;
    for my $batch ( $self->batches->elements ) {
        $batch->update();
    }
}