Browse Source

+ LDV::DB

master
Alex 'AdUser' Z 7 years ago
parent
commit
fb3ff10b31
  1. 70
      lib/LDV/DB.pm
  2. 22
      t/DB.t

70
lib/LDV/DB.pm

@ -0,0 +1,70 @@
package LDV::DB;
use strict;
use warnings;
use utf8;
use DBIx::Simple;
use SQL::Abstract;
sub new {
my ($class, $conf) = @_;
my $self = {
dsn => undef,
user => undef,
pass => undef,
opts => { RaiseError => 1, AutoCommit => 1 },
};
die "DB: config should be hashref\n"
unless ref($conf) eq 'HASH';
die "DB: database type should be set\n"
unless $conf->{type};
foreach my $key (qw(user pass)) {
next unless $conf->{$key};
$self->{$key} = $conf->{$key};
}
if ($conf->{type} eq 'sqlite3') {
die "DB: Path to database file should be set for sqlite3\n"
unless $conf->{file};
$self->{dsn} = sprintf 'dbi:SQLite:dbname=%s', $conf->{file};
$self->{opts}->{sqlite_see_if_its_a_number} = 1;
$self->{opts}->{sqlite_unicode} = 1;
} elsif ($conf->{type} eq 'mysql') {
die "DB: database name should be set for mysql\n"
unless $conf->{file};
$self->{dsn} = sprintf 'dbi:mysql:dbname=%s', $conf->{name};
$self->{dsn} .= sprintf ';host=%s', $conf->{host}
if $conf->{host};
$self->{opts}->{mysql_enable_utf8} = 1;
} elsif ($conf->{type} eq 'pgsql') {
die "DB: database name should be set for pgsql\n"
unless $conf->{file};
$self->{dsn} = sprintf 'dbi:Pg:dbname=%s', $conf->{name};
$self->{dsn} .= sprintf ';host=%s', $conf->{host}
if $conf->{host};
$self->{opts}->{pg_enable_utf8} = 1;
} else {
die "DB: unsupported database type\n";
}
bless($self, $class);
}
sub connect {
my ($self) = @_;
$self->{dbh} = DBIx::Simple->new($self->{dsn}, $self->{user}, $self->{pass}, $self->{opts});
}
# proxy methods
sub select { shift->{dbh}->select(@_); }
sub insert { shift->{dbh}->insert(@_); }
sub update { shift->{dbh}->update(@_); }
sub delete { shift->{dbh}->delete(@_); }
sub query { shift->{dbh}->query(@_); }
# for connection keepalive
sub ping { shift->{dbh}->query('SELECT 1'); }
1;

22
t/DB.t

@ -0,0 +1,22 @@
#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use LDV::DB;
use File::Slurp;
use Test::More tests => 2;
my $hash = read_file('conf/ldv.conf');
my $config = eval "$hash";
SKIP: {
skip "Can't load config", 2 unless (ref($config) eq 'HASH');
my $ldap = LDV::DB->new($config->{db});
isa_ok($ldap, "LDV::DB", "LDV::DB->new");
can_ok($ldap, qw(connect select insert update delete));
};
exit 0;
Loading…
Cancel
Save