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 } })
60 0 0 $_[0]{'_negotiated_unix_fd'} ? :
70 0 0 unless (defined $next_is_receive)
85 2 0 if ($self->{'_sent_initial'})
88 0 2 if ($self->{'_io'}->get_write_queue_count)
89 0 0 unless $self->flush_write_queue
95 3 5 if ($cur->[0]) { }
96 0 3 unless my $line = $self->_read_line
102 1 4 if ('CODE' eq ref $cur->[1]) { }
109 0 5 unless $self->_send_line(join($", @line_parts))
120 0 2 unless ($ok)
122 0 0 if (eval { do { $err->isa('Protocol::DBus::X::Rejected') } }) { }
126 0 0 unless (grep {$_ eq $mech;} @{$$self{'_tried_mechanism'};})
132 0 0 if ($self->_set_mechanism($mech))
165 2 0 unless ($self->{'_sent_initial'} or $self->{'_mechanism'}->must_send_initial)
179 0 2 if ($self->{'_can_pass_unix_fd'})
194 0 0 if ($line eq 'AGREE_UNIX_FD') { }
0 0 elsif (index($line, 'ERROR ') == 0) { }
207 2 0 if (index($line, 'OK ') == 0) { }
240 3 0 if ($line = $_[0]{'_io'}->read_until("\r\n"))
245 0 3 if (0 == index($line, 'REJECTED '))
259 0 0 unless my $sname = getsockname $sk