| line |
true |
false |
branch |
|
81
|
0 |
0 |
unless defined $range
|
|
82
|
0 |
0 |
unless defined $resolution
|
|
94
|
0 |
0 |
unless defined $range
|
|
95
|
0 |
0 |
unless defined $resolution
|
|
107
|
0 |
0 |
unless defined $range
|
|
108
|
0 |
0 |
unless defined $resolution
|
|
119
|
0 |
0 |
unless defined $range
|
|
120
|
0 |
0 |
unless defined $resolution
|
|
131
|
0 |
0 |
unless defined $range
|
|
132
|
0 |
0 |
unless defined $resolution
|
|
143
|
0 |
0 |
unless defined $range
|
|
144
|
0 |
0 |
unless defined $resolution
|
|
159
|
0 |
0 |
if (not $error =~ /\+0,/u) { }
|
|
160
|
0 |
0 |
if ($error =~ /^(\+[0-9]*)\,\"?(.*)\"?$/u) { }
|
|
188
|
0 |
0 |
if defined $request
|
|
196
|
0 |
0 |
if ($value == 1 or $value =~ /on/iu) { }
|
|
|
0 |
0 |
elsif ($value == 0 or $value =~ /off/iu) { }
|
|
211
|
0 |
0 |
unless ($text =~ m{^[A-Za-z0-9\ \!\#\$\%\&\'\(\)\^\\/\@\;\:\[\]\,\.\+\-\=\<\>\?\_]*$}u)
|
|
247
|
0 |
0 |
if (not defined $enable) { }
|
|
254
|
0 |
0 |
if ($enable =~ /^ONCE$/iu) { }
|
|
|
0 |
0 |
elsif ($enable =~ /^(ON|1)$/iu) { }
|
|
|
0 |
0 |
elsif ($enable =~ /^(OFF|0)$/iu) { }
|
|
280
|
0 |
0 |
if ($range eq 'AUTO' or not defined $range) { }
|
|
|
0 |
0 |
elsif ($range =~ /^([+-]?)(?=\d|\.\d)\d*(\.\d*)?([Ee]([+-]?\d+))?$/u) { }
|
|
|
0 |
0 |
elsif (not $range =~ /^(MIN|MAX)$/u) { }
|
|
293
|
0 |
0 |
if ($tint =~ /^([+]?)(?=\d|\.\d)\d*(\.\d*)?([Ee]([+-]?\d+))?$/u) { }
|
|
|
0 |
0 |
elsif (not $tint =~ /^(MIN|MAX|DEFAULT)$/u) { }
|
|
304
|
0 |
0 |
unless (defined $res_cmd)
|
|
310
|
0 |
0 |
if $res_cmd eq ""
|
|
327
|
0 |
0 |
unless defined $count
|
|
328
|
0 |
0 |
if not $count =~ /^[0-9]*$/u or $count < 1 or $count > 512
|
|
332
|
0 |
0 |
unless defined $delay
|
|
333
|
0 |
0 |
unless $count =~ /^([+]?)(?=\d|\.\d)\d*(\.\d*)?([Ee]([+-]?\d+))?$/u
|
|
337
|
0 |
0 |
if (not defined $tint) { }
|
|
|
0 |
0 |
elsif ($tint =~ /^([+]?)(?=\d|\.\d)\d*(\.\d*)?([Ee]([+-]?\d+))?$/u) { }
|
|
|
0 |
0 |
elsif (not $tint =~ /^(MIN|MAX)$/u) { }
|
|
344
|
0 |
0 |
if ($tint > 200 or $tint < "0.02")
|
|
356
|
0 |
0 |
if (not defined $range) { }
|
|
|
0 |
0 |
elsif ($range =~ /^([+-]?)(?=\d|\.\d)\d*(\.\d*)?([Ee]([+-]?\d+))?$/u) { }
|
|
|
0 |
0 |
elsif (not $range =~ /^(MIN|MAX)$/u) { }
|
|
368
|
0 |
0 |
unless (defined $res_cmd)
|
|
373
|
0 |
0 |
if $res_cmd eq ""
|
|
410
|
0 |
0 |
if (ref $_[0] eq 'HASH') { }
|