| line |
true |
false |
branch |
|
73
|
0 |
3 |
if (defined $p{'Login'} and defined $p{'Password'}) |
|
82
|
0 |
0 |
unless ($d =~ /Alien$/) |
|
89
|
0 |
3 |
if ((my(@err) = grep({not /Unknown setting/i;} $self->set(%p))) != 0) |
|
93
|
0 |
3 |
unless scalar $self->_simpleset('TagListFormat', 'text') == 0 |
|
125
|
0 |
33 |
if (lc $var eq 'timeout') { } |
|
|
8 |
25 |
elsif (lc $var eq 'mask') { } |
|
|
4 |
21 |
elsif (lc $var eq 'time') { } |
|
|
6 |
15 |
elsif (lc $var eq 'antennasequence') { } |
|
|
8 |
7 |
elsif (grep {lc $var eq lc $_;} 'AcquireMode', 'PersistTime', 'AcqCycles', 'AcqEnterWakeCount', 'AcqCount', 'AcqSleepCount', 'AcqExitWakeCount', 'PersistTime', 'TagListAntennaCombine', 'AcquireSleep', 'AcquireWakeCount') { } |
|
131
|
8 |
0 |
if ($val =~ m[^([0-9a-f]*)(?:/(\d*))?(?:/(\d*))?$]i) { } |
|
135
|
2 |
6 |
if (length($mask) % 2 == 1) |
|
158
|
0 |
4 |
if ($val and $val =~ /\D/) { } |
|
171
|
6 |
0 |
if (ref $val) |
|
202
|
0 |
29 |
if (not $resp =~ /^$var /i) { } |
|
241
|
10 |
28 |
if (lc $var eq 'mask') { } |
|
|
4 |
24 |
elsif (lc $var eq 'time') { } |
|
|
14 |
10 |
elsif (lc $var eq 'antennasequence') { } |
|
|
2 |
8 |
elsif (lc $var eq 'readerversion') { } |
|
|
8 |
0 |
elsif (grep {lc $var eq lc $_;} 'AcquireMode', 'PersistTime', 'AcqCycles', 'AcqEnterWakeCount', 'AcqCount', 'AcqSleepCount', 'AcqExitWakeCount', 'PersistTime', 'TagListAntennaCombine') { } |
|
244
|
2 |
8 |
if ($mask =~ /all tags/i) { } |
|
|
8 |
0 |
elsif ($mask =~ /^(\d+),\s*(\d+),\s*(.*)$/) { } |
|
251
|
2 |
6 |
if ($len == 0) { } |
|
259
|
2 |
4 |
if ($start) |
|
269
|
4 |
0 |
if (defined $timestr and $timestr =~ m[(\d+)/(\d+)/(\d+) (\d+):(\d+):(\d+)]) |
|
272
|
0 |
4 |
if ($1 > 2045) { } |
|
286
|
14 |
0 |
if (defined $antstr) |
|
338
|
4 |
32 |
if (wantarray) { } |
|
356
|
36 |
0 |
if ($resp =~ /^$var\s+.*?=\s*(.*?)[\s\x0a\x0d]*$/is) |
|
393
|
0 |
6 |
if ($p{'Numreads'}) |
|
398
|
0 |
6 |
if keys %p |
|
405
|
2 |
8 |
unless $tagline =~ /^Tag:/i |
|
409
|
40 |
0 |
if ($prop =~ /^(.*?):(.*)/) |
|
411
|
8 |
32 |
if (lc $1 eq 'tag') { } |
|
|
8 |
24 |
elsif (lc $1 eq 'ant') { } |
|
432
|
0 |
6 |
if keys %p |
|
465
|
0 |
0 |
if @_ |
|
470
|
0 |
0 |
if @_ |
|
503
|
0 |
0 |
if @_ |
|
508
|
0 |
0 |
if @_ |
|
544
|
0 |
73 |
unless $self->_writebytes("\cA" . $cmd . "\r\n") |