App-Memcached-CLI
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
lib/App/Memcached/CLI/DataSource.pm view on Meta::CPAN
sub connect {
my $class = shift;
my $addr = shift;
my %opts = @_;
my $socket = sub {
return IO::Socket::UNIX->new(Peer => $addr) if is_unixsocket($addr);
return IO::Socket::INET->new(
PeerAddr => $addr,
Proto => 'tcp',
Timeout => $opts{timeout} || 1,
);
}->();
confess "Can't connect to $addr" unless $socket;
return $class->new(socket => $socket);
}
sub ping {
my $self = shift;
my $version = eval {
view all matches for this distributionview release on metacpan - search on metacpan
( run in 1.272 second using v1.00-cache-2.02-grep-82fe00e-cpan-2c419f77a38b )