Branch Coverage

blib/lib/Authen/SASL/Perl.pm
Criterion Covered Total %
branch 20 60 33.3


line true false branch
32 0 18 unless my $mechanism = $parent->mechanism
38 0 18 unless eval "require $mpkg;"
61 18 0 eval "require $_;" && $_->can('_secflags') ? :
62 92 0 if $have > 0
64 0 36 unless my(@mpkg) = (sort {$b->_order <=> $a->_order;} grep({my $have = ($have{$_} ||= eval "require $_;" && $_->can('_secflags') ? 1 : -1); $_->_secflags(@sec) == @sec if $have > 0;} map({(my $mpkg = "Authen::SASL::Perl" . "::$_") =~ s/-/_/g; $mpkg;} split(/[^-\w]+/, $parent->mechanism, 0))))
75 29 29 unless defined +(shift())->{'error'}
82 4 83 if $self->{'error'}
110 59 131 if @_ == 1
119 36 0 if @_ == 1
148 31 46 unless defined $cb
152 1 45 if (ref $cb eq 'ARRAY') { }
4 41 elsif (ref $cb eq 'CODE') { }
164 27 19 unless $name eq "pass"
180 0 0 unless defined $self->property("ssf") and $self->property("ssf") > 0
205 0 0 if $fh->can("blocking") and not $fh->blocking
250 0 0 if $debug & 4
254 0 0 if ($avail <= 0)
256 0 0 unless $avail > 0
260 0 0 if ($avail >= $len)
261 0 0 if $debug & 4
269 0 0 if $debug & 4
289 0 0 if $debug & 4
291 0 0 unless $rv > 0
297 0 0 if $debug & 4
298 0 0 unless $bsz <= $self->{'rcvbufsz'}
305 0 0 if $debug & 4
307 0 0 unless $rv > 0
314 0 0 if $debug & 4
326 0 0 if $len > length $data
331 0 0 if $debug & 8