Branch Coverage

blib/lib/Tangence/Server.pm
Criterion Covered Total %
branch 33 58 56.9


line true false branch
109 9 66 if @_
118 1 0 if (my $subscriptions = $self->subscriptions)
127 1 0 if (my $watches = $self->watches)
136 1 0 if (my $cursors = $self->peer_hascursor)
147 6 48 unless $self->peer_hasobj->{$id}
150 0 48 unless my $obj = $self->registry->get_by_id($id)
190 0 2 unless $weakself
223 0 2 unless my $edef = $object->can_event($event)
228 2 0 unless $_->[0] == $object and $_->[1] eq $event and $id = $_->[2], 0
230 0 2 unless defined $id
316 0 18 unless my $pdef = $object->can_property($prop)
321 12 6 if ($message->code == 7) { }
6 0 elsif ($message->code == 12) { }
346 8 10 if $want_initial
352 0 8 unless $object->can($m)
378 0 4 unless my $pdef = $object->can_property($prop)
383 13 0 unless $_->[0] == $object and $_->[1] eq $prop and $id = $_->[2], 0
385 0 4 unless defined $id
405 0 12 unless my $cursorobj = $self->peer_hascursor->{$cursor_id}
437 0 9 if ($major != 0)
442 0 9 if $minor_max > 4
443 0 9 if $minor_min < 3
445 0 9 if ($minor_max < $minor_min)
481 0 9 unless $self->permit_registry
511 0 37 unless $weakself
529 2 0 if (my $subs = $self->subscriptions)
534 0 2 unless $s->[0] == $obj
544 2 0 if (my $watches = $self->watches)
549 0 8 unless $w->[0] == $obj