File Coverage

blib/lib/Teng/Plugin/Replace.pm

Criterion	Covered	Total	%
statement	21	23	91.3
branch	3	6	50.0
condition	1	3	33.3
subroutine	4	4	100.0
pod	1	1	100.0
total	30	37	81.0

use strict;
use warnings;
use utf8;

our @EXPORT = qw/replace/;

    my ($self, $table_name, $args) = @_;

    my $table = $self->schema->get_table($table_name);
    if (! $table) {
        Carp::croak( "Table definition for $table_name does not exist (Did you declare it in our schema?)" );
    }

    for my $col (keys %{$args}) {
        $args->{$col} = $table->call_deflate($col, $args->{$col});
    }

    my ($sql, @binds) = $self->sql_builder->insert( $table_name, $args, { prefix => 'REPLACE INTO' } );
    $self->execute($sql, \@binds, $table_name);

    my $pk = $table->primary_keys();
    if (scalar(@$pk) == 1 && not defined $args->{$pk->[0]}) {
        $args->{$pk->[0]} = $self->_last_insert_id($table_name);
    }

    return $args if $self->suppress_row_objects;

    $table->row_class->new(
        {
            row_data   => $args,
            teng       => $self,
            table_name => $table_name,
        }
    );
}

1;

=head1 NAME

Teng::Plugin::Replace - Add replace for Teng

=head1 PROVIDED METHODS

=over 4

=item C<< $teng->replace($table_name, \%rows_data) >>

record by replace.

example:

    Your::Model->replace('user',
        {
            id   => 3,
            name => 'walf443',
        },
    );

=back