Branch Coverage

blib/lib/Protocol/DBus/Authn.pm
Criterion Covered Total %
branch 18 50 36.0


line true false branch
20 0 2 if @missing
32 0 2 unless ($self->_set_mechanism($opts{'_mechanism'}))
42 2 0 unless (ref $mechanism)
46 0 2 unless (eval { do { &Module::Load::load($module); 1 } })
61 0 0 $_[0]{'_negotiated_unix_fd'} ? :
71 0 0 unless (defined $next_is_receive)
86 2 0 if ($self->{'_sent_initial'})
89 0 2 if ($self->{'_io'}->get_write_queue_count)
90 0 0 unless $self->flush_write_queue
96 3 5 if ($cur->[0]) { }
97 0 3 unless my $line = $self->_read_line
103 1 4 if ('CODE' eq ref $cur->[1]) { }
110 0 5 unless $self->_send_line(join($", @line_parts))
121 0 2 unless ($ok)
123 0 0 if (eval { do { $err->isa('Protocol::DBus::X::Rejected') } }) { }
130 0 0 unless (grep {$_ eq $mech;} @{$$self{'_tried_mechanism'};})
136 0 0 if ($self->_set_mechanism($mech))
169 2 0 unless ($self->{'_sent_initial'} or $self->{'_mechanism'}->must_send_initial)
183 0 2 if ($self->{'_can_pass_unix_fd'})
198 0 0 if ($line eq 'AGREE_UNIX_FD') { }
0 0 elsif (index($line, 'ERROR ') == 0) { }
211 2 0 if (index($line, 'OK ') == 0) { }
244 3 0 if ($line = $_[0]{'_io'}->read_until("\r\n"))
249 0 3 if (0 == index($line, 'REJECTED '))
263 0 0 unless my $sname = getsockname $sk