Branch Coverage

blib/lib/Tangence/Server.pm
Criterion Covered Total %
branch 23 40 57.5


line true false branch
107 9 66 if @_
116 1 0 if (my $subscriptions = $self->subscriptions)
125 1 0 if (my $watches = $self->watches)
134 1 0 if (my $cursors = $self->peer_hascursor)
145 6 48 unless $self->peer_hasobj->{$id}
148 0 48 unless my $obj = $self->registry->get_by_id($id)
188 0 2 unless $weakself
344 8 10 if $want_initial
350 0 8 unless $object->can($m)
403 0 12 unless my $cursorobj = $self->peer_hascursor->{$cursor_id}
435 0 9 if ($major != 0)
440 0 9 if $minor_max > 4
441 0 9 if $minor_min < 3
443 0 9 if ($minor_max < $minor_min)
479 0 9 unless $self->permit_registry
509 0 37 unless $weakself
527 2 0 if (my $subs = $self->subscriptions)
532 0 2 unless $s->[0] == $obj
542 2 0 if (my $watches = $self->watches)
547 0 8 unless $w->[0] == $obj