| line |
true |
false |
branch |
|
146
|
1 |
36 |
unless defined $arg |
|
147
|
2 |
34 |
unless $arg =~ /^([+-]?)(?=\d|\.\d)\d*(\.\d*)?([Ee]([+-]?\d+))?$/ |
|
148
|
1 |
33 |
unless $arg >= {sign => '+', value => [0]} |
|
150
|
1 |
32 |
if $arg == {sign => '+', value => [0]} |
|
155
|
1 |
31 |
if $number =~ /\./ |
|
157
|
1 |
30 |
if $size > {sign => '+', value => [18]} |
|
164
|
49 |
20 |
if ($size > {sign => '+', value => [3]}) { } |
|
|
9 |
11 |
elsif ($size == {sign => '+', value => [3]}) { } |
|
165
|
14 |
35 |
if ($size % {sign => '+', value => [2]} == {sign => '+', value => [0]}) { } |
|
181
|
5 |
6 |
$size == {sign => '+', value => [2]} ? : |
|
191
|
39 |
19 |
if ($number > {sign => '+', value => [0]}) { } |