diff -r 6acf8ea44e0a -r 94281ba012c8 examples/client --- a/examples/client Tue Jan 06 22:33:39 2009 +0100 +++ b/examples/client Tue Jan 06 22:52:09 2009 +0100 @@ -6,14 +6,21 @@ use strict; use warnings; use Quancom; +use Time::HiRes qw(usleep); use Data::Dumper; MAIN: { my $q = new Quancom $ARGV[0]; my $r; - $q->set(1, 8 => 1)->ok or die $q->last_result->error_message; - $q->set(2, 64 => 1)->ok or die $q->last_result->error_message; + foreach (1..64) { + $q->set($_ => 1); + usleep 1e6/20; + } + foreach (1..64) { + $q->set($_ => 0); + usleep 1e6/20; + } # reset $q->full_reset->ok or warn "err: " . $q->last_result->error_message . "\n";