| line |
true |
false |
branch |
|
142
|
1 |
47 |
unless exists $args{'id'} or exists $args{'email'} |
|
145
|
1 |
46 |
unless exists $args{'id'} xor exists $args{'email'} |
|
150
|
15 |
31 |
if (exists $args{'size'}) |
|
151
|
2 |
13 |
unless $args{'size'} >= 1 and $args{'size'} <= 512 |
|
155
|
13 |
31 |
if (exists $args{'rating'}) |
|
156
|
1 |
12 |
unless $args{'rating'} =~ /\A(?:g|pg|r|x)\Z/i |
|
161
|
1 |
42 |
if (exists $args{'border'}) |
|
163
|
0 |
1 |
unless $args{'border'} =~ /\A[0-9A-F]{3}(?:[0-9A-F]{3})?\Z/ |
|
169
|
24 |
19 |
if $args{'default'} |
|
175
|
122 |
50 |
unless exists $args{$arg} |
|
178
|
44 |
6 |
if $args{'short_keys'} |
|
183
|
21 |
22 |
unless $uri =~ m[/$] |
|
185
|
28 |
15 |
if @pairs |
|
195
|
130 |
115 |
if 'base_http' eq $key or 'base_https' eq $key |
|
196
|
31 |
84 |
if exists $$hash{$key} |
|
200
|
37 |
30 |
unless (exists $$hash{'base'}) |
|
201
|
2 |
35 |
$$hash{'https'} ? : |