view release on metacpan or  search on metacpan

lib/PDK/DBI/Mysql.pm  view on Meta::CPAN

package PDK::DBI::Mysql;

use utf8;
use v5.30;
use Moose;
use DBIx::Custom;
use namespace::autoclean;
use Carp qw(croak);

has option => (is => 'ro', isa => 'Maybe[HashRef[Str]]', default => undef,);

with 'PDK::DBI::Role';

has '+dbi' => (isa => 'DBIx::Custom', handles => qr/^(?:select|update|insert|delete|execute|user).*/, );

for my $func (qw(execute delete update insert batchExecute)) {
  around $func => sub {
    my ($orig, $self, @args) = @_;
    my $result;

lib/PDK/DBI/Pg.pm  view on Meta::CPAN

package PDK::DBI::Pg;

use utf8;
use v5.30;
use Moose;
use DBIx::Custom;
use namespace::autoclean;
use Carp qw(croak);

has option => (is => 'ro', isa => 'Maybe[HashRef[Str]]', default => undef,);

with 'PDK::DBI::Role';

has '+dbi' => (isa => 'DBIx::Custom', handles => qr/^(?:select|update|insert|delete|execute|user).*/, );

for my $func (qw(execute delete update insert batchExecute)) {
  around $func => sub {
    my ($orig, $self, @args) = @_;
    my $result;