| line |
true |
false |
branch |
|
97
|
0 |
3 |
unless (@opts) |
|
103
|
1 |
2 |
if (ref $opts[0] eq 'HASH' and @opts == 1) { } |
|
|
1 |
1 |
elsif (@opts % 2 == 0) { } |
|
|
1 |
0 |
elsif (@opts < 2) { } |
|
105
|
1 |
7 |
if (exists $opts[0]{$key}) |
|
115
|
1 |
0 |
if ($opts[$i] eq $key) |
|
119
|
1 |
0 |
unless $opts[$i] |
|
121
|
0 |
1 |
unless (keys %$self) |
|
135
|
3 |
0 |
if ($$self{'smd'}) |
|
141
|
0 |
3 |
unless ($$self{'smd'}) |
|
148
|
3 |
0 |
unless ($$self{'dont_connect'}) |
|
166
|
3 |
0 |
if ($smd =~ /^\w+:/) { } |
|
172
|
0 |
3 |
if ($@ or not $uri) |
|
188
|
0 |
3 |
if ($smd) |
|
192
|
18 |
6 |
if not $_ =~ /^smd|dont_connect$/ |
|
196
|
3 |
0 |
if ($$self{'_ua'} and $$self{'smd'}) |
|
199
|
0 |
3 |
if ($response and $response->is_success) |
|
224
|
0 |
0 |
if ($@) |
|
228
|
0 |
0 |
if ($obj) |
|
231
|
0 |
0 |
if ($$obj{$req}) { } |
|
238
|
0 |
0 |
unless ($$self{'_service'}{'serviceURL'} =~ /^\w+:/) |
|
249
|
0 |
0 |
if ($$method{'name'} and $$method{'parameters'}) |
|
271
|
0 |
0 |
if $set_utf8 |
|
284
|
0 |
0 |
if ($$self{'_service'} and $$self{'_service'}{'objectName'}) |
|
305
|
0 |
0 |
if ($$self{'_service'} and $$self{'_service'}{'methods'}) |
|
323
|
0 |
0 |
if ($$self{'serviceURL'}) |
|
335
|
0 |
1 |
if (exists $$self{'methods'}{$l}) |
|
347
|
0 |
0 |
if ($res->is_success) { } |
|
350
|
0 |
0 |
if ($@) { } |
|
354
|
0 |
0 |
if $result |