| line |
true |
false |
branch |
|
22
|
1 |
27 |
if (exists $self->{'tolerance'} and exists $self->{'precision'}) { } |
|
|
10 |
17 |
elsif (not exists $self->{'precision'} || exists $self->{'tolerance'}) { } |
|
28
|
1 |
26 |
unless defined $input |
|
32
|
2 |
24 |
unless length $input and $input =~ /\S/ |
|
36
|
2 |
22 |
if exists $self->{'precision'} and not $self->{'precision'} =~ /^\d+$/ |
|
45
|
12 |
24 |
if (defined $precision) |
|
54
|
3 |
14 |
unless @_ |
|
57
|
3 |
11 |
unless defined $got |
|
58
|
0 |
11 |
unless length $got and $got =~ /\S/ |
|
60
|
1 |
10 |
if ($self->{'precision'}) |
|
62
|
0 |
1 |
if $self->{'negate'} |
|
66
|
6 |
4 |
if $self->{'negate'} |
|
75
|
2 |
76 |
unless $exists |
|
76
|
2 |
74 |
unless defined $got |
|
77
|
2 |
72 |
if ref $got |
|
78
|
2 |
70 |
unless length $got and $got =~ /\S/ |
|
91
|
46 |
24 |
unless ($equal) |
|
92
|
32 |
14 |
if (defined $tolerance) { } |
|
93
|
10 |
22 |
if $got > $input - $tolerance and $got < $input + $tolerance |
|
103
|
8 |
62 |
$negate ? : |
|
107
|
5 |
0 |
if ($warn =~ /numeric/) |