Branch Coverage

blib/lib/Object/Remote/Connection.pm
Criterion Covered Total %
branch 46 70 65.7


line true false branch
109 0 0 if ($valid) { }
147 0 1 unless defined $pid
150 0 1 if ($ret != $pid) { }
0 1 elsif ($? & 127) { }
170 152 89 if $id eq 'NULL'
224 0 55 if ($@)
231 0 18 &blessed($_[0]) ? :
244 18 18 if (my $conn = &$poss($spec, @args))
254 10 18 if &blessed($spec)
257 0 18 unless defined $conn
358 1 194 unless ($self->is_valid)
368 0 194 unless &openhandle($fh)
371 0 194 unless defined $ret
374 0 194 if ($@)
378 0 0 unless $self->on_close->is_ready
403 44 155 if @Object::Remote::Connection::New_Ids
411 39 1405 if (&blessed($data)) { }
205 1200 elsif (my $ref = ref $data) { }
412 1 38 if ($data->isa('Object::Remote::Proxy') and $data->{'remote'}->connection == $self) { }
421 3 202 if ($ref eq 'HASH') { }
194 8 elsif ($ref eq 'ARRAY') { }
5 3 elsif ($ref eq 'CODE') { }
2 1 elsif ($ref eq 'SCALAR') { }
1 0 elsif ($ref eq 'GLOB') { }
423 0 3 if (defined $tied_to) { }
430 0 194 if (defined $tied_to) { }
457 0 173 unless (my($type, @rest) = eval { do { @{$self->_deserialize($flat);} } })
460 0 173 unless (eval { do { $self->${\"receive_$type";}(@rest); 1 } })
467 0 152 unless delete $self->local_objects_by_id->{$id}
478 0 173 unless (my $local = $self->local_objects_by_id->{$id})
492 0 173 if ($method =~ /^start::/)
495 0 0 unless $f
504 0 16 $ctx ? :
16 157 defined $ctx ? :
507 1 172 unless (eval { do { $future->done(defined $ctx ? $ctx ? &$do() : scalar &$do() : do { &$do(); () }); 1 } })