File Coverage

blib/lib/ObjectDB/DBHPool.pm

Criterion	Covered	Total	%
statement	9	26	34.6
branch	0	2	0.0
condition	0	6	0.0
subroutine	3	5	60.0
pod	0	2	0.0
total	12	41	29.2

package ObjectDB::DBHPool;

use strict;
use warnings;

our $VERSION = '3.26';

require Carp;
use ObjectDB::DBHPool::Connection;

sub new {
    my $class = shift;
    my (%params) = @_;

    my $self = {};
    bless $self, $class;

    $self->{check_timeout} = $params{check_timeout};
    $self->{dsn}           = $params{dsn};
    $self->{username}      = $params{username};
    $self->{password}      = $params{password};
    $self->{attrs}         = $params{attrs};
    $self->{do}            = $params{do};

    $self->{connections} = {};

    return $self;
}

sub dbh {
    my $self = shift;

    # From DBIx::Connector
    my $pid_tid = $$;
    $pid_tid .= '_' . threads->tid
      if exists $INC{'threads.pm'} && $INC{'threads.pm'};

    my $connection = $self->{connections}->{$pid_tid} ||= ObjectDB::DBHPool::Connection->new(
        check_timeout => $self->{check_timeout},
        dsn           => $self->{dsn},
        username      => $self->{username},
        password      => $self->{password},
        attrs         => $self->{attrs},
        do            => $self->{do},
    );

    return $connection->dbh;
}

1;