| line |
true |
false |
branch |
|
20
|
0 |
44 |
unless &looks_like_number($num) |
|
23
|
35 |
9 |
if $_[-1] and ref $_[-1] and ref $_[-1] eq "HASH" |
|
27
|
0 |
44 |
if not $param and @_ == 0 |
|
36
|
35 |
9 |
if ($param) |
|
39
|
7 |
28 |
if exists $param->{$num} |
|
43
|
14 |
70 |
unless $_ =~ /$RANGE_RE/u |
|
46
|
21 |
49 |
if ($1) { } |
|
|
21 |
28 |
elsif ($3) { } |
|
47
|
6 |
15 |
if ($1 eq '<') { } |
|
48
|
2 |
4 |
if $num < $2 |
|
51
|
4 |
11 |
if $num > $2 |
|
57
|
8 |
13 |
if $num >= $2 and $num <= $3 |
|
62
|
8 |
6 |
if ($num % 2 == 0) { } |
|
63
|
4 |
4 |
if exists $param->{'even'} |
|
68
|
3 |
3 |
if exists $param->{'odd'} |
|
73
|
9 |
7 |
if ($num > 1 or $num < -1) { } |
|
|
4 |
3 |
elsif ($num == 0) { } |