Authen-Simple-RADIUS
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
lib/Authen/Simple/RADIUS.pm view on Meta::CPAN
optional => 0
}
});
sub check {
my ( $self, $username, $password ) = @_;
my $connection = Authen::Radius->new(
Host => sprintf( "%s:%d", $self->host, $self->port ),
Secret => $self->secret,
Timeout => $self->timeout
);
unless ( defined $connection ) {
my $host = $self->host;
$self->log->error( qq/Failed to connect to '$host'. Reason: '$@'/ )
if $self->log;
return 0;
view all matches for this distributionview release on metacpan - search on metacpan
( run in 0.466 second using v1.00-cache-2.02-grep-82fe00e-cpan-2c419f77a38b )