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 |