examples/client
changeset 20 94281ba012c8
parent 19 6acf8ea44e0a
child 22 7690e12fafda
--- 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";