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;