#!/usr/bin/perl use strict; use lib '../lib'; use Continuity; use Coro::AnyEvent; use Coro::Debug; our $coro_debug_server = new_unix_server Coro::Debug "/tmp/corodebug"; $| = 1; my $reap_watcher; sub reaper { $reap_watcher = AnyEvent->timer( interval => 1, cb => sub { print "Reap event!\n"; } ); } # reaper(); sub main { my $request = shift; print "AnyEvent model: " . $AnyEvent::MODEL . "\n"; foreach my $n (1..10) { print STDERR "count: $n\n"; $request->print("count: $n\n"); # sleep 1; Coro::AnyEvent::sleep 1; } } my $server = Continuity->new( query_session => 'sid', cookie_session => 0, debug_level => 3, port => 5000, ); $server->loop;