| 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) { }
|
|
185
|
0 |
0 |
if defined $request
|
|
193
|
0 |
0 |
if ($value == 1 or $value =~ /on/iu) { }
|
|
|
0 |
0 |
elsif ($value == 0 or $value =~ /off/iu) { }
|
|
208
|
0 |
0 |
unless ($text =~ m{^[A-Za-z0-9\ \!\#\$\%\&\'\(\)\^\\/\@\;\:\[\]\,\.\+\-\=\<\>\?\_]*$}u)
|
|
250
|
0 |
0 |
if (not defined $enable) { }
|
|
257
|
0 |
0 |
if ($enable =~ /^ONCE$/iu) { }
|
|
|
0 |
0 |
elsif ($enable =~ /^(ON|1)$/iu) { }
|
|
|
0 |
0 |
elsif ($enable =~ /^(OFF|0)$/iu) { }
|
|
283
|
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) { }
|
|
296
|
0 |
0 |
if ($tint =~ /^([+]?)(?=\d|\.\d)\d*(\.\d*)?([Ee]([+-]?\d+))?$/u) { }
|
|
|
0 |
0 |
elsif (not $tint =~ /^(MIN|MAX|DEFAULT)$/u) { }
|
|
307
|
0 |
0 |
unless (defined $res_cmd)
|
|
313
|
0 |
0 |
if $res_cmd eq ""
|
|
328
|
0 |
0 |
unless defined $count
|
|
329
|
0 |
0 |
if not $count =~ /^[0-9]*$/u or $count < 1 or $count > 512
|
|
333
|
0 |
0 |
unless defined $delay
|
|
334
|
0 |
0 |
unless $count =~ /^([+]?)(?=\d|\.\d)\d*(\.\d*)?([Ee]([+-]?\d+))?$/u
|
|
338
|
0 |
0 |
if (not defined $tint) { }
|
|
|
0 |
0 |
elsif ($tint =~ /^([+]?)(?=\d|\.\d)\d*(\.\d*)?([Ee]([+-]?\d+))?$/u) { }
|
|
|
0 |
0 |
elsif (not $tint =~ /^(MIN|MAX|DEF)$/u) { }
|
|
345
|
0 |
0 |
if ($tint > 100 or $tint < "0.02")
|
|
357
|
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) { }
|
|
369
|
0 |
0 |
unless (defined $res_cmd)
|
|
374
|
0 |
0 |
if $res_cmd eq ""
|
|
415
|
0 |
0 |
if (ref $_[0] eq 'HASH') { }
|