equal
deleted
inserted
replaced
4 # perl -Mblib examples/client ... |
4 # perl -Mblib examples/client ... |
5 |
5 |
6 use strict; |
6 use strict; |
7 use warnings; |
7 use warnings; |
8 use Quancom; |
8 use Quancom; |
|
9 use Time::HiRes qw(usleep); |
9 use Data::Dumper; |
10 use Data::Dumper; |
10 |
11 |
11 MAIN: { |
12 MAIN: { |
12 my $q = new Quancom $ARGV[0]; |
13 my $q = new Quancom $ARGV[0]; |
13 |
14 |
14 my $r; |
15 my $r; |
15 $q->set(1, 8 => 1)->ok or die $q->last_result->error_message; |
16 foreach (1..64) { |
16 $q->set(2, 64 => 1)->ok or die $q->last_result->error_message; |
17 $q->set($_ => 1); |
|
18 usleep 1e6/20; |
|
19 } |
|
20 foreach (1..64) { |
|
21 $q->set($_ => 0); |
|
22 usleep 1e6/20; |
|
23 } |
17 |
24 |
18 # reset |
25 # reset |
19 $q->full_reset->ok or warn "err: " . $q->last_result->error_message . "\n"; |
26 $q->full_reset->ok or warn "err: " . $q->last_result->error_message . "\n"; |
20 |
27 |
21 # does not work |
28 # does not work |