Branch Coverage

blib/lib/Protocol/DBus/Authn.pm
Criterion Covered Total %
branch 22 52 42.3


line true false branch
20 0 5 if @missing
32 0 5 unless ($self->_set_mechanism($opts{'_mechanism'}))
42 5 0 unless (ref $mechanism)
46 0 5 unless (eval { do { &Module::Runtime::require_module($module); 1 } })
61 0 0 $_[0]{'_negotiated_unix_fd'} ? :
71 0 0 unless (defined $next_is_receive)
86 4 0 if ($self->{'_sent_initial'})
89 0 4 if ($self->{'_io'}->get_write_queue_count)
90 0 0 unless $self->flush_write_queue
98 8 12 if ($cur->[0]) { }
99 0 8 unless (my $line = $self->_read_line)
109 2 10 if ('CODE' eq ref $cur->[1]) { }
116 0 12 unless $self->_send_line(join($", @line_parts))
127 0 4 if $last_lines
129 0 4 unless ($ok)
131 0 0 if (eval { do { $err->isa('Protocol::DBus::X::Rejected') } }) { }
138 0 0 unless (grep {$_ eq $mech;} @{$$self{"_tried_mechanism"};})
144 0 0 if ($self->_set_mechanism($mech))
177 5 0 unless ($self->{'_sent_initial'} or $self->{'_mechanism'}->must_send_initial)
191 2 3 if ($self->{'_can_pass_unix_fd'})
206 2 0 if ($line eq 'AGREE_UNIX_FD') { }
0 0 elsif (index($line, 'ERROR ') == 0) { }
219 4 0 if (index($line, 'OK ') == 0) { }
252 8 0 if ($line = $_[0]{'_io'}->read_until("\r\n"))
257 0 8 if (0 == index($line, "REJECTED "))
271 0 2 unless my $sname = getsockname $sk