| line |
true |
false |
branch |
|
35
|
0 |
2 |
unless (defined $ret_value)
|
|
36
|
0 |
0 |
if ($opts->{'msg_on_error'}) { }
|
|
43
|
0 |
2 |
if (defined $opts->{'min_value'} and $ret_value < $opts->{'min_value'}) { }
|
|
|
0 |
4 |
elsif (defined $opts->{'max_value'} and $ret_value > $opts->{'max_value'}) { }
|
|
120
|
0 |
0 |
unless defined $opts
|
|
133
|
7 |
2 |
if (defined $val) { }
|
|
134
|
7 |
0 |
$val =~ /^[+-]?\d+$/ ? :
|
|
265
|
4 |
0 |
unless defined $print_error
|
|
266
|
0 |
4 |
unless (defined $arg)
|
|
267
|
0 |
0 |
unless (defined $default)
|
|
268
|
0 |
0 |
if ($print_error)
|
|
276
|
2 |
2 |
if $arg eq '1' or $darg eq 'on'
|
|
277
|
2 |
0 |
if $arg eq '0' or $darg eq 'off'
|
|
279
|
0 |
0 |
if $print_error
|
|
309
|
0 |
0 |
unless defined $validate_line_num
|
|
311
|
0 |
0 |
if (0 == $size)
|
|
317
|
0 |
0 |
if ($first_arg =~ /^\d+$/) { }
|
|
324
|
0 |
0 |
unless ($line_num)
|
|
327
|
0 |
0 |
if (-r $mapped_filename) { }
|
|
328
|
0 |
0 |
if (scalar @args == 0) { }
|
|
333
|
0 |
0 |
unless ($line_num =~ /\d+/)
|
|
346
|
0 |
0 |
if ($validate_line_num)
|
|
348
|
0 |
0 |
if (not defined $DB::dbline[$line_num] or $DB::dbline[$line_num] == 0)
|
|
405
|
0 |
0 |
defined $arg ? :
|