view release on metacpan or  search on metacpan

lib/CHI/Driver/Memcached/t/CHIDriverTests/Base.pm  view on Meta::CPAN

}

sub supports_get_namespaces     { 0 }
sub supports_expires_on_backend { 1 }

sub connect_to_memcached : Test(startup) {
    my $self = shift;
    require IO::Socket::INET;
    my $msock = IO::Socket::INET->new(
        PeerAddr => $testaddr,
        Timeout  => 3
    );
    if ( !$msock ) {
        $self->SKIP_ALL("No memcached instance running at $testaddr");
    }
}

sub clear_memcached : Test(setup) {
    my ($self) = @_;

    my $cache = $self->new_cache();