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