--- 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";