| 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 |