| line |
true |
false |
branch |
|
93
|
0 |
0 |
if exists $self->{'config'}{'debug'}
|
|
144
|
0 |
0 |
if ref $params->[0] eq "ARRAY"
|
|
147
|
0 |
0 |
if ($#{$args;} == 0 and ref $args->[0] eq 'HASH') { }
|
|
152
|
0 |
0 |
if ($#{$args;} & Deparse error: Can't locate object method "object_2svref" via package "B::SPECIAL" at /usr/local/lib/perl5/5.26.1/B/Deparse.pm line 5018.
|
|
155
|
0 |
0 |
if (ref $args->[$j] ne "")
|
|
160
|
0 |
0 |
if $p eq $args->[$j]
|
|
162
|
0 |
0 |
if (exists $$found{$args->[$j]})
|
|
171
|
0 |
0 |
if ($simple) { }
|
|
174
|
0 |
0 |
if (defined @{$params;}[$i])
|
|
188
|
0 |
0 |
if (exists $arguments->{$param}) { }
|
|
199
|
0 |
0 |
if (wantarray) { }
|
|
211
|
0 |
0 |
if ref $params->[0] eq "ARRAY"
|
|
218
|
0 |
0 |
unless (defined $result[$i])
|
|
223
|
0 |
0 |
if (wantarray) { }
|
|
242
|
0 |
0 |
if ($h)
|
|
245
|
0 |
0 |
unless defined $in and $in ne ""
|
|
249
|
0 |
0 |
if ($in =~ /^\"(.*)\"$/u) { }
|
|
|
0 |
0 |
elsif ($in =~ /^\'(.*)\'$/u) { }
|
|
258
|
0 |
0 |
unless $#_ > -1
|
|
260
|
0 |
0 |
unless $v
|
|
271
|
0 |
0 |
if ref $in eq "HASH"
|
|
276
|
0 |
0 |
if ($in =~ /^$k/iu)
|
|
287
|
0 |
0 |
if ref $in eq "HASH"
|
|
292
|
0 |
0 |
if $in eq ""
|
|
295
|
0 |
0 |
if ($in =~ /^$k/iu)
|
|
316
|
0 |
0 |
if ref $in eq "HASH"
|
|
318
|
0 |
0 |
unless defined $un
|
|
321
|
0 |
0 |
if (ref $un eq 'ARRAY') { }
|
|
|
0 |
0 |
elsif (ref $un eq 'SCALAR') { }
|
|
|
0 |
0 |
elsif (ref $un eq '') { }
|
|
335
|
0 |
0 |
if ($str =~ /^MIN/iu)
|
|
338
|
0 |
0 |
if ($str =~ /^MAX/iu)
|
|
344
|
0 |
0 |
if ($str =~ /^([+\-]?(\d+\.\d*|\d+|\d*\.\d+))\s*/iu)
|
|
347
|
0 |
0 |
if $str eq ""
|
|
348
|
0 |
0 |
if ($str =~ /^e\s*([+\-]?\d+)\s*/iu)
|
|
352
|
0 |
0 |
if $str eq ""
|
|
362
|
0 |
0 |
if ($u =~ /^db/iu) { }
|
|
364
|
0 |
0 |
if ($str =~ /^dBex($dbt)?$/iu) { }
|
|
|
0 |
0 |
elsif ($str =~ /^dBpe($dbt)?$/iu) { }
|
|
|
0 |
0 |
elsif ($str =~ /^dBt($dbt)?$/iu) { }
|
|
|
0 |
0 |
elsif ($str =~ /^dBg($dbt)?$/iu) { }
|
|
|
0 |
0 |
elsif ($str =~ /^dBma($dbt)$/iu) { }
|
|
|
0 |
0 |
elsif ($str =~ /^dBk($dbt)?$/iu) { }
|
|
|
0 |
0 |
elsif ($str =~ /^dBm($dbt)?$/iu) { }
|
|
|
0 |
0 |
elsif ($str =~ /^dBu($dbt)?$/iu) { }
|
|
|
0 |
0 |
elsif ($str =~ /^dBn($dbt)?$/iu) { }
|
|
|
0 |
0 |
elsif ($str =~ /^dBp($dbt)?$/iu) { }
|
|
|
0 |
0 |
elsif ($str =~ /^dBf($dbt)?$/iu) { }
|
|
|
0 |
0 |
elsif ($str =~ /^dB$dbt$/iu) { }
|
|
405
|
0 |
0 |
if ($str =~ /^ex($u)?$/iu) { }
|
|
|
0 |
0 |
elsif ($str =~ /^pe($u)?$/iu) { }
|
|
|
0 |
0 |
elsif ($str =~ /^t($u)?$/iu) { }
|
|
|
0 |
0 |
elsif ($str =~ /^g($u)?$/iu) { }
|
|
|
0 |
0 |
elsif ($u =~ /(HZ|OHM)/iu and $str =~ /^ma?($u)$/iu) { }
|
|
|
0 |
0 |
elsif ($u =~ /A/iu and $str =~ /^ma$/iu) { }
|
|
|
0 |
0 |
elsif (not $u =~ /(HZ|OHM)/iu and $str =~ /^ma($u)?$/iu) { }
|
|
|
0 |
0 |
elsif ($str =~ /^k($u)?$/iu) { }
|
|
|
0 |
0 |
elsif ($str =~ /^m($u)?$/iu) { }
|
|
|
0 |
0 |
elsif ($str =~ /^u($u)?$/iu) { }
|
|
|
0 |
0 |
elsif ($str =~ /^n($u)?$/iu) { }
|
|
|
0 |
0 |
elsif ($str =~ /^p($u)?$/iu) { }
|
|
|
0 |
0 |
elsif ($str =~ /^f($u)?$/iu) { }
|
|
|
0 |
0 |
elsif ($str =~ /^$u$/iu) { }
|
|
478
|
0 |
0 |
$ch == 1 ? :
|
|
479
|
0 |
0 |
if "CH$ch" eq $self->{'channel'}
|
|
483
|
0 |
0 |
$self->{'channel'} eq 'CH1' ? :
|
|
492
|
0 |
0 |
unless $DEBUG
|
|
497
|
0 |
0 |
if $code == 0
|
|
513
|
0 |
0 |
if $x =~ /^connection\s/iu
|
|
514
|
0 |
0 |
if $x =~ /^disconnect/iu
|
|
537
|
0 |
0 |
if defined $bit
|
|
544
|
0 |
0 |
if $self->query("BUSY?") =~ /^(:BUSY )?\s*1/iu
|
|
554
|
0 |
0 |
unless exists $tail->{'read_mode'} and defined $tail->{'read_mode'}
|
|
556
|
0 |
0 |
if ($tail->{'read_mode'} ne "cache" or not defined $self->{'device_cache'}{'ID'})
|
|
570
|
0 |
0 |
if ($mem =~ /^\s*([0-6])\s/u) { }
|
|
585
|
0 |
0 |
if ($ch =~ /C\d/u)
|
|
590
|
0 |
0 |
if ($ch ne "LINE")
|
|
625
|
0 |
0 |
if $r eq "ON"
|