4 unless(grep /blib/, @INC) {
6 @INC = '../lib' if -d '../lib';
10 select(STDERR); $| = 1;
11 select(STDOUT); $| = 1;
16 use IO::Poll qw(/POLL/);
18 my $poll = new IO::Poll;
20 my $stdout = \*STDOUT;
21 my $dupout = IO::Handle->new_from_fd(fileno($stdout),"w");
23 $poll->mask($stdout => POLLOUT);
26 unless $poll->mask($stdout) == POLLOUT;
29 $poll->mask($dupout => POLLPRI);
32 unless $poll->mask($dupout) == POLLPRI;
38 unless $poll->events($stdout) == POLLOUT;
42 if $poll->events($dupout);
45 my @h = $poll->handles;
50 $poll->remove($stdout);
59 if $poll->mask($stdout);
65 if $poll->events($stdout);