File Coverage

blib/lib/UR/Object/Command/Update.pm

Criterion	Covered	Total	%
statement	23	25	92.0
branch	3	4	75.0
condition	3	3	100.0
subroutine	3	5	60.0
pod	0	2	0.0
total	32	39	82.0

package UR::Object::Command::Update;

use strict;
use warnings 'FATAL';

class UR::Object::Command::Update {
    is => 'Command::V2',
    is_abstract => 1,
    has_constant_transient => {
        target_name_pl => { via => 'namespace', to => 'target_name_pl', },
        target_name_ub_pl => { via => 'namespace', to => 'target_name_ub_pl', },
    },
    doc => 'CRUD update command class.',
};

sub help_brief { $_[0]->__meta__->doc }
sub help_detail { $_[0]->__meta__->doc }

sub execute {
    my $self = shift;

    my $new_value = $self->value;
    $new_value = undef if $new_value eq '';
    my $new_value_id = UR::Object::Command::CrudUtil->display_id_for_value($new_value);

    my $property_name = $self->property_name;
    my $target_name_ub_pl = $self->target_name_ub_pl;
    my @objects = $self->$target_name_ub_pl;

    $self->status_message("Update %s %s...", $self->target_name_pl, $property_name);
    for my $obj( @objects ) {
        my $old_value = $obj->$property_name;
        my $old_value_id = UR::Object::Command::CrudUtil->display_id_for_value($old_value);
        if ( $self->only_if_null and defined $old_value ) {
            $self->status_message("FAILED_NOT_NULL\t%s\t%s\t%s", $obj->class, $obj->id, $old_value_id);
            next;
        }
        $obj->$property_name($new_value);
        $self->status_message("UPDATE\t%s\t%s\t%s\t%s", $obj->class, $obj->id, $old_value_id, $new_value_id);
    }
    1;
}

1;