examples/client
changeset 23 66c21518904c
parent 22 7690e12fafda
--- a/examples/client	Thu Jan 22 03:57:27 2009 +0100
+++ b/examples/client	Thu Jan 22 04:35:14 2009 +0100
@@ -15,14 +15,18 @@
     my $r;
 
     $q->set(1..64 => 1); sleep 1;
+    print $q->get(1..64), "\n";
     $q->set(1..64 => 0); sleep 1;
+    print $q->get(1..64), "\n";
 
     foreach (1..64) {
 	$q->set($_ => 1);
+	print $q->get(1..64), "\n";
 	usleep 1e6/20;
     }
     foreach (1..64) {
 	$q->set($_ => 0);
+	print $q->get(1..64), "\n";
 	usleep 1e6/20;
     }