| line |
true |
false |
branch |
|
30
|
0 |
18 |
unless my $mechanism = $parent->mechanism |
|
36
|
0 |
18 |
unless eval "require $mpkg;" |
|
59
|
18 |
0 |
eval "require $_;" && $_->can('_secflags') ? : |
|
61
|
92 |
0 |
if $have > 0 and $_->_secflags(@sec) == @sec |
|
63
|
0 |
36 |
unless my(@mpkg) = (sort {$b->_order <=> $a->_order;} grep({my $have = ($have{$_} ||= eval "require $_;" && $_->can('_secflags') ? 1 : -1);
$_->_acceptable(%{$parent->callback;}) if $have > 0 and $_->_secflags(@sec) == @sec;} 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 |
|
206
|
0 |
0 |
if $fh->can("blocking") and not $fh->blocking |
|
251
|
0 |
0 |
if $debug & 4 |
|
255
|
0 |
0 |
if ($avail <= 0) |
|
257
|
0 |
0 |
unless $avail > 0 |
|
261
|
0 |
0 |
if ($avail >= $len) |
|
262
|
0 |
0 |
if $debug & 4 |
|
270
|
0 |
0 |
if $debug & 4 |
|
290
|
0 |
0 |
if $debug & 4 |
|
292
|
0 |
0 |
unless $rv > 0 |
|
298
|
0 |
0 |
if $debug & 4 |
|
299
|
0 |
0 |
unless $bsz <= $self->{'rcvbufsz'} |
|
306
|
0 |
0 |
if $debug & 4 |
|
308
|
0 |
0 |
unless $rv > 0 |
|
315
|
0 |
0 |
if $debug & 4 |
|
327
|
0 |
0 |
if $len > length $data |
|
332
|
0 |
0 |
if $debug & 8 |