view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

benchmark/simple.pl
Changes
Column.xs
Column.xs.mt
Connection.xs
Connection.xs.tt
const.h
Drizzle.xs
Drizzle.xs.tt
examples/coro.pl
examples/danga-socket.pl
examples/poe.pl
examples/server.pl
examples/simple.pl
examples/simple_multi.pl
inc/Devel/PPPort.pm
inc/ExtUtils/ParseXS.pm
inc/Module/Install.pm
inc/Module/Install/AuthorTests.pm
inc/Module/Install/Base.pm

examples/coro.pl  view on Meta::CPAN

use strict;
use warnings;
use Net::Drizzle ':constants';
use IO::Poll qw/POLLIN POLLOUT/;
use Coro;
use Coro::Handle;

&main;exit;

sub main {
    my @coros;
    for my $i (0..10) {
        push @coros, async { one_request($i) };
    }
    $_->join for @coros;
}

sub one_request {
    my $i = shift;

    print "start: $i\n";

    my $drizzle = Net::Drizzle->new()
                              ->add_options(DRIZZLE_NON_BLOCKING);