| line |
true |
false |
branch |
|
22
|
8 |
24 |
$args{'-prefix'} ? : |
|
31
|
1 |
2 |
if (ref $mw ne 'CODE') |
|
48
|
5 |
1 |
if (@_ == 1) { } |
|
56
|
4 |
2 |
ref $ip ? : |
|
60
|
3 |
6 |
if ($ip =~ /:/) { } |
|
71
|
2 |
4 |
if ($$env{'REMOTE_ADDR'} =~ /:/) { } |
|
77
|
1 |
5 |
defined $not && $not eq '!' ? : |
|
85
|
14 |
9 |
if (@_ == 1) { } |
|
96
|
9 |
20 |
if (ref $val and ref $val eq 'Regexp') { } |
|
|
18 |
2 |
elsif (defined $val) { } |
|
105
|
7 |
22 |
defined $not && $not eq '!' ? : |
|
116
|
4 |
5 |
if (defined $_[0] and $_[0] eq '!') |
|
119
|
1 |
8 |
unless @_ |
|
120
|
6 |
2 |
if (@_ == 1) { } |
|
127
|
4 |
4 |
if (defined $method and not ref $method) |