Select Code to Download

BEGIN { use_ok 'Q' };

my $q = new_ok Q => [5];

package Thing;
use if $^O eq 'MSWin32' ? 'Thing::Win32' : 'Thing::nix';

sub new { $^O eq 'MSWin32' ) ? &Thing::Win32->new() : &Thing::nix->new
+(); }

can_ok $q => 'nq';
can_ok $q => 'dq';
can_ok $q => 'n';

not ok 1 - async::Q->can('pq')
#   Failed test 'async::Q->can('pq')'
#   at -e line 1.
#     async::Q->can('pq') failed

Can't locate object method "pq" via package "async::Q" at -e line 1.

#! perl -slw
use strict;
...

C:\test>perl async\Q.pm -N=1e4 -T=200 -SIZE=400
1e4 items by 200 threads via three Qs size 400 in 8.310000 seconds