Reaction::InterfaceModel::Action::DBIC::Result::Update - Reaction::InterfaceModel::Action::DBIC::Result::Update documentation

Reaction documentation Contained in the Reaction distribution.

Index

Code Index:

NAME

Top

Reaction::InterfaceModel::Action::DBIC::Result::Update

DESCRIPTION

Top

Update the target model and sync the Action's parameter attributes to the target model.

Update is a subclass of Action::DBIC::Result that cponsumes Role::CheckUniques|'Reaction::InterfaceModel::Action::DBIC::Role::CheckUniques

BUILD

Sync the values from the target model's parameter attributes to the action's parameter attributes

do_apply

Sync the target model's parameter attributes to the values returned by parameter_hashref, call update and return the target_model.

SEE ALSO

Top

Create, DeleteAll, Delete,

AUTHORS

Top

See Reaction::Class for authors.

LICENSE

Top

See Reaction::Class for the license.

Reaction documentation Contained in the Reaction distribution. 
package Reaction::InterfaceModel::Action::DBIC::Result::Update;

use Reaction::Class;
use namespace::clean -except => [ qw(meta) ];

extends 'Reaction::InterfaceModel::Action::DBIC::Result';
with 'Reaction::InterfaceModel::Action::DBIC::Role::CheckUniques';

sub BUILD {
  my ($self) = @_;
  my $tm = $self->target_model;
  foreach my $attr ($self->parameter_attributes) {
    my $writer = $attr->get_write_method;
    my $name = $attr->name;
    my $tm_attr = $tm->meta->find_attribute_by_name($name);
    next unless ref $tm_attr;
    my $tm_reader = $tm_attr->get_read_method;
    $self->$writer($tm->$tm_reader) if defined($tm->$tm_reader);
  }
}

sub do_apply {
  my $self = shift;
  my $args = $self->parameter_hashref;
  my $model = $self->target_model;
  foreach my $name (keys %$args) {
    my $tm_attr = $model->meta->find_attribute_by_name($name);
    next unless ref $tm_attr;
    my $tm_writer = $tm_attr->get_write_method;
    $model->$tm_writer($args->{$name});
  }
  $model->update;
  return $model;
}

__PACKAGE__->meta->make_immutable;

1;

__END__;