| line |
true |
false |
branch |
|
26
|
52 |
116 |
if (&Switch::case(qr/^(fahrenheit|f)$/i)) |
|
27
|
50 |
66 |
if (&Switch::case(qr/^(celsius|c)$/i)) |
|
30
|
34 |
32 |
if (&Switch::case(qr/^(kelvin|k)$/i)) |
|
33
|
32 |
0 |
if (&Switch::case(qr/^(rankine|r)$/i)) |
|
34
|
0 |
0 |
if (&Switch::case(qr/^(reaumur|re)$/i)) { } |
|
49
|
44 |
124 |
if (&Switch::case(qr/^(fahrenheit|f)$/i)) |
|
50
|
44 |
80 |
if (&Switch::case(qr/^(celsius|c)$/i)) |
|
51
|
40 |
40 |
if (&Switch::case(qr/^(kelvin|k)$/i)) |
|
52
|
40 |
0 |
if (&Switch::case(qr/^(rankine|r)$/i)) |
|
53
|
0 |
0 |
if (&Switch::case(qr/^(reaumur|re)$/i)) { } |
|
78
|
716 |
109332 |
if (lc $match eq $type->{'unit'} or grep {$_ eq lc $match;} @{$$type{'aliases'};}) |
|
89
|
4 |
358 |
if scalar @match_types != 2 |
|
90
|
0 |
358 |
if scalar @factors != 2 |
|
91
|
0 |
358 |
if scalar @units != 2 |
|
92
|
0 |
358 |
if scalar @can_be_negative != 2 |
|
116
|
4 |
358 |
unless $matches->{'type_1'} and $matches->{'type_2'} |
|
118
|
350 |
8 |
if (&looks_like_number($conversion->{'factor'})) { } |
|
123
|
4 |
346 |
if &float_is_infinite($conversion->{'factor'}) or &float_is_nan($conversion->{'factor'}) |
|
127
|
36 |
310 |
if $conversion->{'factor'} < 0 and not $matches->{'can_be_negative_1'} |
|
134
|
6 |
312 |
if $conversion->{'factor'} =~ /[[:alpha:]]/ |
|
137
|
2 |
310 |
if $matches->{'type_1'} ne $matches->{'type_2'} |
|
142
|
168 |
142 |
if ($matches->{'type_1'} eq 'temperature') { } |
|
156
|
0 |
310 |
if $factor < 0 and not $matches->{'can_be_negative_2'} |
|
172
|
2 |
6 |
$in =~ /^(-?\d*(?:\.?\d+))\^(-?\d*(?:\.?\d+))$/ ? : |
|
175
|
6 |
2 |
if $out =~ /[^\d]/ |
|
190
|
0 |
365 |
defined shift() ? : |
|
194
|
365 |
0 |
if ($data_file eq 'NO_DATA_FILE') { } |
|
212
|
12 |
298 |
if ($precision->{'factor'} == 0) |