view release on metacpan or  search on metacpan

t/04-check.t  view on Meta::CPAN

use strict;
use warnings;
use AnyEvent;
use AnyEvent::ConnPool;
use Data::Dumper;
use Test::More;

my $global_counter = 0;

my $cv = AnyEvent->condvar();

my $connpool = AnyEvent::ConnPool->new(
    constructor =>  sub {
        $cv->begin();
        return {value => $global_counter++};

t/06-dispatcher.t  view on Meta::CPAN

use strict;
use warnings;
use AnyEvent::ConnPool;
use Data::Dumper;

use Test::More tests => 7;

my $global_counter = 1;
my $connpool = AnyEvent::ConnPool->new(
    constructor     =>  sub {
        return bless {value => $global_counter++}, 'Foo::Bar::Baz';
    },
    size    =>  3,
    init    =>  1,