| 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 |