| line |
true |
false |
branch |
|
33
|
0 |
0 |
if @_ |
|
38
|
0 |
0 |
if @_ |
|
60
|
0 |
0 |
if (exists $param{'Path'} and my $file = $param{'Path'}) |
|
61
|
0 |
0 |
unless -f $file or -l $file |
|
62
|
0 |
0 |
unless -r $file |
|
87
|
0 |
0 |
if $self->agent |
|
89
|
0 |
0 |
$self->ssl ? : |
|
91
|
0 |
0 |
unless require "$file.pm" |
|
92
|
0 |
0 |
unless my $agent = $class->new($self->param(%param)) |
|
95
|
0 |
0 |
if ($self->user) |
|
96
|
0 |
0 |
unless defined $self->secret |
|
97
|
0 |
0 |
unless ($agent->auth($self->user, $self->secret)) |
|
99
|
0 |
0 |
if $msg =~ /MIME::Base64/u |
|
100
|
0 |
0 |
if $msg =~ /Authen::SASL/u |
|
122
|
0 |
0 |
if ($self->attachments) { } |