| line |
true |
false |
branch |
|
31
|
0 |
18 |
unless my $mechanism = $parent->mechanism |
|
37
|
0 |
18 |
unless eval "require $mpkg;" |
|
58
|
17 |
0 |
eval "require $_;" && $_->can('_secflags') ? : |
|
61
|
89 |
0 |
if $have > 0 |
|
63
|
0 |
33 |
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)))) |
|
74
|
29 |
29 |
unless defined((shift())->{'error'}) |
|
81
|
4 |
83 |
if $$self{'error'} |
|
109
|
59 |
131 |
if @_ == 1 |
|
118
|
36 |
0 |
if @_ == 1 |
|
147
|
29 |
43 |
unless defined $cb |
|
151
|
1 |
42 |
if (ref $cb eq 'ARRAY') { } |
|
|
4 |
38 |
elsif (ref $cb eq 'CODE') { } |
|
163
|
26 |
17 |
unless $name eq 'pass' |
|
179
|
0 |
0 |
unless defined $self->property('ssf') and $self->property('ssf') > 0 |
|
204
|
0 |
0 |
if $fh->can('blocking') and not $fh->blocking |
|
249
|
0 |
0 |
if $debug & 4 |
|
253
|
0 |
0 |
if ($avail <= 0) |
|
255
|
0 |
0 |
unless $avail > 0 |
|
259
|
0 |
0 |
if ($avail >= $len) |
|
260
|
0 |
0 |
if $debug & 4 |
|
268
|
0 |
0 |
if $debug & 4 |
|
288
|
0 |
0 |
if $debug & 4 |
|
290
|
0 |
0 |
unless $rv > 0 |
|
296
|
0 |
0 |
if $debug & 4 |
|
297
|
0 |
0 |
unless $bsz <= $$self{'rcvbufsz'} |
|
304
|
0 |
0 |
if $debug & 4 |
|
306
|
0 |
0 |
unless $rv > 0 |
|
313
|
0 |
0 |
if $debug & 4 |
|
329
|
0 |
0 |
if $debug & 8 |