| line |
true |
false |
branch |
|
38
|
0 |
25 |
if (my $p = delete $$self{'allow_packages'}) |
|
42
|
0 |
150 |
unless (exists $$self{$p}) |
|
51
|
7 |
0 |
unless $$self{'reader'} == $$self{'writer'} |
|
58
|
0 |
241 |
if ($RMI::DEBUG) |
|
67
|
0 |
241 |
if ref $_[0] eq 'HASH' |
|
69
|
0 |
241 |
unless $self->_send('query', [$wantarray, @_], $opts) |
|
73
|
238 |
11 |
if ($message_type eq 'result') { } |
|
|
1 |
10 |
elsif ($message_type eq 'close') { } |
|
|
8 |
2 |
elsif ($message_type eq 'query') { } |
|
|
2 |
0 |
elsif ($message_type eq 'exception') { } |
|
74
|
50 |
188 |
if ($wantarray) { } |
|
75
|
0 |
50 |
if $RMI::DEBUG |
|
79
|
0 |
188 |
if $RMI::DEBUG |
|
102
|
232 |
10 |
if ($message_type eq 'query') { } |
|
|
10 |
0 |
elsif ($message_type eq 'close') { } |
|
122
|
0 |
480 |
if $RMI::DEBUG |
|
128
|
0 |
491 |
if $RMI::DEBUG |
|
131
|
11 |
480 |
unless (defined $serialized_blob) |
|
133
|
0 |
11 |
if $RMI::DEBUG |
|
137
|
0 |
480 |
if $RMI::DEBUG |
|
138
|
0 |
480 |
if $RMI::DEBUG and not defined $serialized_blob |
|
152
|
0 |
240 |
if $RMI::DEBUG |
|
163
|
13 |
227 |
if (not defined $wantarray) { } |
|
|
50 |
177 |
elsif ($wantarray) { } |
|
164
|
0 |
13 |
if $RMI::DEBUG |
|
168
|
0 |
50 |
if $RMI::DEBUG |
|
172
|
0 |
177 |
if $RMI::DEBUG |
|
184
|
2 |
237 |
if ($@) { } |
|
185
|
0 |
2 |
if $RMI::DEBUG |
|
189
|
0 |
237 |
if $RMI::DEBUG |
|
219
|
5 |
2 |
if ($class and not $module) { } |
|
|
2 |
0 |
elsif ($module and not $class) { } |
|
252
|
0 |
7 |
if $@ |
|
266
|
35 |
59 |
if (wantarray) { } |
|
268
|
0 |
35 |
if $@ |
|
273
|
1 |
57 |
if $@ |
|
288
|
0 |
7 |
unless $sub and ref $sub eq 'CODE' |
|
302
|
241 |
239 |
if ($message_type eq 'query') |
|
306
|
44 |
197 |
if ($call_type eq 'call_object_method') { } |
|
|
13 |
184 |
elsif ($call_type eq 'call_class_method') { } |
|
|
75 |
109 |
elsif ($call_type eq 'call_function') { } |
|
|
109 |
0 |
elsif ($call_type eq 'call_eval' or $call_type eq 'call_coderef' or $call_type eq 'call_use' or $call_type eq 'call_use_lib') { } |
|
325
|
7 |
102 |
if ($call_type eq 'call_use') { } |
|
327
|
2 |
5 |
unless ($sub) |
|
342
|
0 |
241 |
unless ($pkg) |
|
347
|
0 |
241 |
if $RMI::DEBUG |
|
348
|
1 |
240 |
if ($default_opts) |
|
349
|
0 |
1 |
if ($opts) { } |
|
351
|
0 |
0 |
if $RMI::DEBUG |
|
364
|
1 |
479 |
if ($opts) |
|
366
|
0 |
1 |
if (%$opts) |
|
372
|
0 |
480 |
unless ref $message_data |
|
374
|
196 |
1185 |
if (my $type = ref $o) { } |
|
376
|
118 |
78 |
if (my $key = $RMI::Node::remote_id_for_object{$o}) { } |
|
|
1 |
77 |
elsif ($copy) { } |
|
378
|
0 |
118 |
if $RMI::DEBUG |
|
398
|
18 |
59 |
if ($base_type ne $type) { } |
|
401
|
0 |
18 |
if (my $allowed = $$self{'allow_packages'}) |
|
402
|
0 |
0 |
unless ($$allowed{ref $o}) |
|
421
|
0 |
480 |
if $RMI::DEBUG |
|
428
|
0 |
480 |
if $RMI::DEBUG |
|
438
|
0 |
480 |
if $RMI::DEBUG |
|
439
|
0 |
480 |
if ($serialized_blob =~ s/\n/ /gms) |
|
454
|
0 |
480 |
if ($@) |
|
459
|
0 |
480 |
unless (defined $message_type) |
|
465
|
0 |
480 |
if $RMI::DEBUG |
|
477
|
1183 |
196 |
if ($type == 0) { } |
|
|
77 |
119 |
elsif ($type == 1 or $type == 2) { } |
|
|
118 |
1 |
elsif ($type == 3) { } |
|
|
1 |
0 |
elsif ($type == 4) { } |
|
479
|
0 |
0 |
defined $value ? : |
|
|
0 |
1183 |
if $RMI::DEBUG |
|
485
|
74 |
3 |
unless ($o) |
|
489
|
6 |
68 |
if ($remote_shape eq 'ARRAY') { } |
|
|
18 |
50 |
elsif ($remote_shape eq 'HASH') { } |
|
|
2 |
48 |
elsif ($remote_shape eq 'SCALAR') { } |
|
|
42 |
6 |
elsif ($remote_shape eq 'CODE') { } |
|
|
6 |
0 |
elsif ($remote_shape eq 'GLOB' or $remote_shape eq 'IO') { } |
|
516
|
18 |
56 |
if ($type == 1) |
|
517
|
3 |
15 |
if ($RMI::proxied_classes{$remote_class}) { } |
|
525
|
8 |
7 |
unless ($RMI::classes_with_proxied_objects{$remote_class}) |
|
541
|
32 |
42 |
if defined $t |
|
544
|
32 |
42 |
if ($t) |
|
553
|
0 |
77 |
if $RMI::DEBUG |
|
558
|
0 |
118 |
unless $o |
|
560
|
0 |
118 |
if $RMI::DEBUG |
|
568
|
0 |
480 |
if $RMI::DEBUG |
|
570
|
0 |
480 |
unless (@done == @$received_and_destroyed_ids) |
|
582
|
36 |
6 |
@_ ? : |
|
585
|
42 |
0 |
if (index $local_var, '::') { } |
|
593
|
0 |
42 |
unless ($type eq substr($remote_var, 0, 1)) |
|
596
|
42 |
0 |
if (index $remote_var, '::') { } |
|
606
|
0 |
42 |
if $@ |
|
609
|
0 |
42 |
if $@ |
|
619
|
1 |
6 |
if (my $prior = $RMI::proxied_classes{$class}) { } |
|
|
1 |
5 |
elsif (my $path = $INC{$module}) { } |
|
620
|
0 |
1 |
if ($prior != $self) { } |
|
636
|
3 |
3 |
if (@exported) |
|
638
|
3 |
0 |
if (substr($caller, 0, 5) eq 'RMI::') |
|
641
|
0 |
36 |
if $RMI::DEBUG |
|
647
|
0 |
6 |
if $RMI::DEBUG |
|
671
|
0 |
145 |
if @_ > 1 |