use strict;
use warnings;
use MongoDB::Async;
use boolean;
use Data::Dumper;
use MongoDB::Async::OID;
use Devel::Peek;
use Data::Dump;
my $m = MongoDB::Async::Connection->new(host => "mongodb://localhost:27018", find_master => 1);
my $db = $m->get_database("admin");
my $c = $db->get_collection("bar");
while (true) {
# print "finding...";
eval {
$c->find_one();
};
if ($@) {
print $@;
}
else {
if ($m->_master){
print "connected to: ".$m->_master->{host}."\n";
}
else {
print "no master\n";
}
}
sleep 1;
}