| line |
true |
false |
branch |
|
56
|
0 |
2 |
unless (defined $args{'uri'}) |
|
60
|
0 |
2 |
ref $args{'uri'} eq 'ARRAY' ? : |
|
63
|
2 |
0 |
if ($scheme =~ /^([a-z0-9_\-\.]+)(?:\+([a-z0-9_\-\.\+]+))*/ou) { } |
|
71
|
2 |
0 |
if (not exists $$self{'protocol'}{$protocol_name}) { } |
|
74
|
0 |
2 |
unless (defined($protocol = 'Lim::RPC::Protocols'->instance->protocol($protocol_name, 'server', $self))) |
|
86
|
0 |
2 |
unless (defined($transport = 'Lim::RPC::Transports'->instance->transport($transport_name, 'server', $self, 'uri', $uri))) |
|
98
|
2 |
0 |
if Lim::OBJ_DEBUG() |
|
104
|
2 |
0 |
if Lim::OBJ_DEBUG() |
|
124
|
0 |
2 |
if (not defined $obj or $@) |
|
125
|
0 |
0 |
defined $@ ? : |
|
|
0 |
0 |
if Lim::WARN() |
|
129
|
2 |
0 |
if ($obj->isa('Lim::Component::Server')) |
|
132
|
0 |
2 |
if (exists $$self{'module'}{$name}) |
|
133
|
0 |
0 |
if Lim::WARN() |
|
137
|
0 |
2 |
unless ($module->VERSION) |
|
138
|
0 |
0 |
if Lim::WARN() |
|
143
|
0 |
2 |
unless ($calls) |
|
144
|
0 |
0 |
if Lim::INFO() |
|
147
|
0 |
2 |
unless (ref $calls eq 'HASH') |
|
148
|
0 |
0 |
if Lim::WARN() |
|
151
|
0 |
2 |
unless (%$calls) |
|
152
|
0 |
0 |
if Lim::INFO() |
|
159
|
0 |
10 |
unless ($obj->can($call)) |
|
160
|
0 |
0 |
if Lim::WARN() |
|
170
|
0 |
10 |
if ($base->isa('UNIVERSAL') and $base->can($call)) |
|
177
|
10 |
0 |
if ($create_call) |
|
180
|
0 |
10 |
unless (ref $call_def eq 'HASH') |
|
181
|
0 |
0 |
if Lim::WARN() |
|
186
|
6 |
4 |
if (exists $$call_def{'uri_map'}) |
|
187
|
0 |
6 |
unless (ref $$call_def{'uri_map'} eq 'ARRAY') |
|
188
|
0 |
0 |
if Lim::WARN() |
|
196
|
10 |
0 |
if (defined(my $redirect_call = $uri_map->add($map))) { } |
|
197
|
4 |
6 |
if ($redirect_call) |
|
198
|
0 |
4 |
unless (exists $$calls{$redirect_call}) |
|
199
|
0 |
0 |
if Lim::WARN() |
|
206
|
0 |
0 |
if Lim::WARN() |
|
211
|
0 |
6 |
unless (defined $calls) |
|
218
|
6 |
4 |
if (exists $$call_def{'in'}) |
|
219
|
0 |
6 |
unless (ref $$call_def{'in'} eq 'HASH') |
|
220
|
0 |
0 |
if Lim::WARN() |
|
226
|
0 |
6 |
unless (scalar @keys) |
|
227
|
0 |
0 |
if Lim::WARN() |
|
235
|
6 |
6 |
if (ref $$value{$key} eq 'HASH') { } |
|
|
0 |
6 |
elsif (blessed($$value{$key})) { } |
|
236
|
0 |
6 |
if (exists $$value{$key}{''}) { } |
|
242
|
0 |
0 |
unless ($@) |
|
246
|
0 |
0 |
if Lim::WARN() |
|
254
|
0 |
0 |
if ($$value{$key}->isa('Lim::RPC::Value')) |
|
257
|
0 |
0 |
if ($$value{$key}->isa('Lim::RPC::Value::Collection')) |
|
266
|
6 |
0 |
unless ($@) |
|
269
|
0 |
0 |
if Lim::WARN() |
|
272
|
0 |
0 |
if Lim::WARN() |
|
277
|
0 |
6 |
unless (defined $calls) |
|
282
|
10 |
0 |
if (exists $$call_def{'out'}) |
|
283
|
0 |
10 |
unless (ref $$call_def{'out'} eq 'HASH') |
|
284
|
0 |
0 |
if Lim::WARN() |
|
290
|
0 |
10 |
unless (scalar @keys) |
|
291
|
0 |
0 |
if Lim::WARN() |
|
299
|
8 |
30 |
if (ref $$value{$key} eq 'HASH') { } |
|
|
0 |
30 |
elsif (blessed($$value{$key})) { } |
|
300
|
0 |
8 |
if (exists $$value{$key}{''}) { } |
|
306
|
0 |
0 |
unless ($@) |
|
310
|
0 |
0 |
if Lim::WARN() |
|
318
|
0 |
0 |
if ($$value{$key}->isa('Lim::RPC::Value')) |
|
321
|
0 |
0 |
if ($$value{$key}->isa('Lim::RPC::Value::Collection')) |
|
330
|
30 |
0 |
unless ($@) |
|
333
|
0 |
0 |
if Lim::WARN() |
|
336
|
0 |
0 |
if Lim::WARN() |
|
341
|
0 |
10 |
unless (defined $calls) |
|
358
|
0 |
10 |
if ($base->isa('UNIVERSAL') and $base->can($call)) |
|
364
|
0 |
2 |
unless (defined $protocol and defined $weak_obj and defined $call_def) |
|
371
|
0 |
2 |
if ($@) |
|
372
|
0 |
0 |
if Lim::WARN() and defined $logger |
|
377
|
2 |
0 |
if Lim::RPC_DEBUG() and defined $logger |
|
379
|
2 |
0 |
unless (defined $q) |
|
382
|
0 |
2 |
if (ref $q ne 'HASH') |
|
383
|
0 |
0 |
if Lim::WARN() and defined $logger |
|
388
|
0 |
2 |
if (exists $$call_def{'in'}) { } |
|
|
0 |
2 |
elsif (%$q) { } |
|
392
|
0 |
0 |
if ($@) |
|
393
|
0 |
0 |
if Lim::WARN() and defined $logger |
|
394
|
0 |
0 |
if Lim::DEBUG() and defined $logger |
|
404
|
0 |
0 |
if Lim::WARN() and defined $logger |
|
413
|
0 |
2 |
if ($@) |
|
414
|
0 |
0 |
if Lim::WARN() and defined $logger |
|
422
|
0 |
2 |
unless ($calls) |
|
426
|
2 |
0 |
if Lim::DEBUG() |
|
452
|
0 |
2 |
unless (exists $$self{'module'}{$module}) |
|
466
|
0 |
2 |
unless (exists $$self{'module'}{$module}) |
|
470
|
0 |
2 |
unless (exists $$self{'module'}{$module}{'calls'}{$call}) |
|
484
|
0 |
0 |
unless (exists $$self{'module'}{$module}) |
|
498
|
0 |
0 |
unless (exists $$self{'module'}{$module}) |
|
512
|
0 |
2 |
unless (exists $$self{'module'}{$module}) |
|
516
|
0 |
2 |
unless (exists $$self{'protocol'}{$protocol}) |
|
530
|
0 |
0 |
unless (exists $$self{'module'}{$module}) |
|
534
|
0 |
0 |
unless (ref $data eq 'HASH') |
|
538
|
0 |
0 |
unless (exists $$self{'module'}{$module}{'uri_maps'}{$call}) |