# uncomment for mock test
# sub pool::init { [ sub { warn 'hello' } ] };
# $pool = bless {}, 'pool';

$pool->init->[0]->();