view release on metacpan or  search on metacpan

example/demo.pl  view on Meta::CPAN

        infof("disconnect: %s", $_[1]);
        $imap->connect();
    },
);
my ($ok, $res) = $imap->connect()->recv();
unless ($ok) {
    die $res;
}

# send ping
my $timer = AE::timer(30, 20*60, sub {
    $imap->noop();
});

AE::cv()->recv;