Authen-Simple-Net
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
lib/Authen/Simple/FTP.pm view on Meta::CPAN
optional => 1
}
});
sub check {
my ( $self, $username, $password ) = @_;
my $connection = Net::FTP->new(
Host => $self->host,
Port => $self->port,
Timeout => $self->timeout
);
unless ( defined $connection ) {
my $host = $self->host;
my $reason = $@ || $! || 'Unknown reason';
$self->log->error( qq/Failed to connect to '$host'. Reason: '$reason'/ )
if $self->log;
lib/Authen/Simple/POP3.pm view on Meta::CPAN
}
}
});
sub check {
my ( $self, $username, $password ) = @_;
my $connection = Net::POP3->new(
Host => $self->host,
Port => $self->port,
Timeout => $self->timeout
);
unless ( defined $connection ) {
my $host = $self->host;
my $reason = $@ || $! || 'Unknown reason';
$self->log->error( qq/Failed to connect to '$host'. Reason: '$reason'/ )
if $self->log;
lib/Authen/Simple/SMTP.pm view on Meta::CPAN
optional => 1
}
});
sub check {
my ( $self, $username, $password ) = @_;
my $connection = Net::SMTP->new(
Host => $self->host,
Port => $self->port,
Timeout => $self->timeout
);
unless ( defined $connection ) {
my $host = $self->host;
my $reason = $@ || $! || 'Unknown reason';
$self->log->error( qq/Failed to connect to '$host'. Reason: '$reason'/ )
if $self->log;
view all matches for this distributionview release on metacpan - search on metacpan
( run in 0.551 second using v1.00-cache-2.02-grep-82fe00e-cpan-2c419f77a38b )