view release on metacpan or  search on metacpan

benchmarks/bench.pl  view on Meta::CPAN

};

my $mongo_con = MongoDB::Connection->new(host => 'mongodb://127.0.0.1');
my $any_con = AnyMongo->new_connection(host => 'mongodb://127.0.0.1');

my $mongo_col = $mongo_con->get_database('anymongo_bench')->get_collection('bench');
my $any_col = $any_con->get_database('anymongo_bench')->get_collection('bench2');

$|= 1;

say "bench insert docs ...";

cmpthese($tries,{
    'mongo-perl-driver' => sub { $sub_insert->($mongo_col,$large_doc) },
    'anymongo' => sub{ $sub_insert->($any_col,$large_doc) }
});


say "bench query/cursor ...";

cmpthese(1,{
    'mongo-perl-driver' => sub { $sub_query->($mongo_col) },
    'anymongo' => sub{ $sub_query->($any_col) }
});

$mongo_con->get_database('anymongo_bench')->drop;