Branch Coverage

blib/lib/Net/WAMP/Role/Base/Peer.pm
Criterion Covered Total %
branch 10 34 29.4


line true false branch
26 1 1 if (not $self->{'_prevent_custom_handler'} and $handler2_cr)
60 0 0 unless ($self->{'_session'}->has_sent_GOODBYE)
82 0 0 $msg ? :
93 0 2 if ($self->{'_session'}->is_finished)
138 0 2 unless ($handler_cr)
150 0 0 unless $self->{'_handshake_done'}
161 0 0 if ($specimen =~ /\.\./o)
165 0 0 if (0 == index($specimen, '.'))
169 0 0 if (substr($specimen, -1) eq '.')
173 0 0 if ($specimen =~ tr/#//)
178 0 0 if ($specimen =~ /\s/o)
190 2 0 unless $mod->can('new')
212 1 1 unless (grep {$_ eq $msg_type;} $self->PEER_CAN_ACCEPT)
215 0 1 unless (my $cr = $self->can("receiver_role_of_$msg_type"))
221 0 1 unless ($session->peer_is($role))
229 0 1 if (my $cr = $self->can("receiver_feature_of_$msg_type"))
230 0 0 unless ($session->peer_role_supports_boolean($role, &$cr()))