NAME
Test::mysqld::Pool - create a pool of Test::mysqld-s
SYNOPSIS
use
DBI;
use
Test::mysqld::Pool;
my
$pool
= Test::mysqld::Pool->new(
my_cnf
=> {
'skip-networking'
=>
''
,
# no TCP socket
},
jobs
=> 2,
) or plan
skip_all
=>
$Test::mysqld::errstr
;
my
$dsn1
=
$pool
->alloc;
# in process 1
my
$dsn2
=
$pool
->alloc;
# in process 2
# my $dsn3 = $pool->alloc; # blocks
# after process 1 death
$pool
->dealloc_unused;
my
$dsn3
=
$pool
->alloc;
# in process 3 (get dsn from pool; reused $dsn of process 1)