File Coverage

lib/CatalystX/Eta/Controller/AutoResultPUT.pm

Criterion	Covered	Total	%
statement	18	19	94.7
branch	3	6	50.0
condition	2	5	40.0
subroutine	2	2	100.0
pod			n/a
total	25	32	78.1

package CatalystX::Eta::Controller::AutoResultPUT;

use Moose::Role;
requires 'result_PUT';

around result_PUT => \&AutoResult_around_result_PUT;

sub AutoResult_around_result_PUT {
    my $orig = shift;
    my $self = shift;
    my ($c)  = @_;

    my $something = $c->stash->{ $self->config->{object_key} };

    my $data_from = $self->config->{data_from_body} ? 'data' : 'params';

    my $params = { %{ $c->req->$data_from } };
    if ( exists $self->config->{prepare_params_for_update}
        && ref $self->config->{prepare_params_for_update} eq 'CODE' ) {
        $params = $self->config->{prepare_params_for_update}->( $self, $c, $params );
    }

    $something = $something->execute(
        $c,
        for => ( exists $c->stash->{result_put_for} ? $c->stash->{result_put_for} : 'update' ),
        with => $params,
    );

    my $primary_column = $self->config->{primary_key_column} || 'id';

    my @params = @{ $c->req->captures };
    $params[-1] = $something->$primary_column;

    $self->status_accepted(
        $c,
        location => $c->uri_for( $self->action_for('result'), [@params] )->as_string,
        entity => { $primary_column => $something->$primary_column }
    );

    $self->$orig(@_);

}

1;