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") |