line |
true |
false |
branch |
65
|
6 |
0 |
unless (exists $args{'username'} and exists $args{'password'}) |
71
|
0 |
6 |
if (defined $bus_id) { } |
74
|
0 |
0 |
unless $config |
79
|
6 |
0 |
if (scalar keys %$config == 1) { } |
87
|
0 |
0 |
unless $default |
124
|
25 |
6 |
if ($singleton) |
142
|
0 |
5 |
unless my $fq_meth = $args{'method'} |
144
|
0 |
5 |
if defined $args{'address'} |
146
|
0 |
5 |
unless $fq_meth =~ /^ ( [\w-]+ (?:\.[\w-]+)* )
\. ( [\w-]+ )
(?: \@ ( [\w-]+ ) (\.[\w-]+)* )? $/x |
162
|
5 |
0 |
unless defined $remote_bus |
164
|
0 |
5 |
if (defined $remote_bus) { } |
170
|
0 |
0 |
if defined $addr and $addr =~ s/^\.// |
178
|
0 |
5 |
if defined $self->{'_CLIENT'}{'auth_data'} |
179
|
0 |
5 |
if defined $self->{'_CLIENT'}{'caller_id'} |
181
|
0 |
5 |
if (exists $args{'buffer_id'}) |
199
|
0 |
0 |
unless $fq_meth =~ /^ ( [\w-]+ (?: \.[\w-]+ )* )
\. ( [\w-]+ | \* ) $/x |
206
|
0 |
0 |
unless (ref $callback eq "CODE") |
210
|
0 |
0 |
if exists $$callbacks{"msg.$fq_meth"} |
228
|
0 |
0 |
unless (ref $request eq "HASH" and $request->{'jsonrpc'} eq "2.0") |
238
|
0 |
0 |
unless (defined $method and $method =~ /^([\.\w-]+)\.([\w-]+)$/) |
246
|
0 |
0 |
unless ($cb) |
255
|
0 |
0 |
unless $success |
268
|
0 |
0 |
unless @methods |
272
|
0 |
0 |
unless $fq_meth =~ /^ ( [\w-]+ (?: \.[\w-]+ )* )
\. ( [\w-]+ | \* ) $/x |
277
|
0 |
0 |
unless (defined $self->{'_CLIENT'}{'callbacks'}{"msg.$fq_meth"}) |
292
|
0 |
0 |
unless $success |
310
|
0 |
51 |
if $AE_WAITING |
323
|
5 |
1 |
if (not exists $resp->{'result'} and $req->{'_raise_error'}) |
354
|
0 |
68 |
unless my $fq_meth = $args{'method'} |
356
|
0 |
68 |
if defined $args{'address'} |
358
|
1 |
67 |
unless $fq_meth =~ /^ ( [\w-]+ (?:\.[\w-]+)* )
\. ( [\w-]+ )
(?: \@ ( [\w-]+ ) (\.[\w-]+)* )? $/x |
368
|
67 |
0 |
unless defined $remote_bus |
373
|
0 |
67 |
if (defined $remote_bus) { } |
379
|
0 |
0 |
if defined $addr and $addr =~ s/^\.// |
387
|
18 |
49 |
if defined $client->{'auth_data'} |
388
|
0 |
67 |
if defined $client->{'caller_id'} |
406
|
64 |
3 |
unless ($FIRE_FORGET) |
414
|
0 |
67 |
if (exists $args{'buffer_id'}) |
425
|
3 |
64 |
if ($FIRE_FORGET) { } |
|
51 |
13 |
elsif ($SYNCHRONOUS) { } |
431
|
1 |
50 |
defined $raise_error ? : |
442
|
0 |
13 |
if ($raise_error and not $req->{'_on_error_cb'}) |
450
|
4 |
9 |
if (not $client->{'async_cv'} or $client->{'async_cv'}->ready) |
461
|
24 |
40 |
if ($__now != time) |
468
|
0 |
2 |
if $req->{'_on_error_cb'} |
498
|
0 |
64 |
if (substr($$payload_ref, 0, 1) eq 'x') { } |
509
|
0 |
64 |
unless (ref $resp eq "HASH" and $resp->{'jsonrpc'} eq "2.0") |
514
|
64 |
0 |
if (exists $resp->{'id'}) { } |
522
|
2 |
62 |
unless $req |
527
|
57 |
5 |
if (exists $resp->{'result'}) { } |
530
|
1 |
56 |
if $req->{'_on_success_cb'} |
535
|
1 |
4 |
if $req->{'_on_error_cb'} |
549
|
0 |
0 |
unless (defined $method and $method =~ /^([\.\w-]+)\.([\w-]+)$/) |
557
|
0 |
0 |
unless ($cb) |
567
|
0 |
6 |
unless $success |
579
|
0 |
2 |
unless defined $cv |
583
|
0 |
2 |
if $AE_WAITING |