• Files
• Commits
• Log
• Graph
• Stats

package Local::SQL::Abstract::Plugin::InsertMulti;

# extends SQL::Abstract::Plugin::InsertMulti to add method replace_multi()

use strict;
use warnings;
 
use SQL::Abstract::Plugin::InsertMulti;

use Sub::Exporter -setup => +{
    into    => 'SQL::Abstract',
    exports => ['replace_multi'],
    groups => { default => ['replace_multi'] },
};

sub replace_multi {
	my ($self, @args) = @_;
	my ($sql, @bind) = $self->insert_multi(@args); # warn $sql;
	$sql =~ s/INSERT/REPLACE/; 
	return wantarray ? ( $sql, @bind ) : $sql;
}

1;