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