Help for this page

Select Code to Download

Select or download this

#! /usr/bin/env perl

use AnyEvent;

my $timer_once = AE::timer 0.5, 0.5, sub { print 'too late' };

Select or download this

use AnyEvent;

my $timer_once = AE::timer 0.5, 0.5, sub { print 'too late' };
for (my $x = 0; $x < 200000000; $x++) { }