equal
deleted
inserted
replaced
10 |
10 |
11 MAIN: { |
11 MAIN: { |
12 my $q = new Quancom $ARGV[0]; |
12 my $q = new Quancom $ARGV[0]; |
13 |
13 |
14 my $r; |
14 my $r; |
|
15 $q->set(1, 8 => 1)->ok or die $q->last_result->error_message; |
|
16 $q->set(2, 64 => 1)->ok or die $q->last_result->error_message; |
15 |
17 |
16 # reset |
18 # reset |
17 $q->full_reset->ok or die $q->last_result->error_message; |
19 $q->full_reset->ok or warn "err: " . $q->last_result->error_message . "\n"; |
18 |
20 |
19 # does not work |
21 # does not work |
20 #$q->cmd("RB 0007")->ok or die $q->last_result->error_message; |
22 #$q->cmd("RB 0007")->ok or die $q->last_result->error_message; |
21 #print "***: " . $q->last_result->data . "\n"; |
23 #print "***: " . $q->last_result->data . "\n"; |
22 #$q->set_timeout(5)->ok or die $q->last_result->error_message; |
24 #$q->set_timeout(5)->ok or die $q->last_result->error_message; |