File Coverage

blib/lib/Memcached/Client/Selector.pm

Criterion	Covered	Total	%
statement	15	19	78.9
branch			n/a
condition	0	3	0.0
subroutine	7	8	87.5
pod	4	4	100.0
total	26	34	76.4

package Memcached::Client::Selector;
BEGIN {
  $Memcached::Client::Selector::VERSION = '2.01';
}
# ABSTRACT: Abstract Base Class For Memcached::Client Selector

use strict;
use warnings;
use Memcached::Client::Log qw{LOG};


sub new {
    my $class = shift;
    my $self = bless {}, $class;
    return $self;
}


sub log {
    my ($self, $format, @args) = @_;
    my $prefix = ref $self || $self;
    $prefix =~ s,Memcached::Client::Selector::,Selector/,;
    LOG ("$prefix> " . $format, @args);
}


sub set_servers {
    die "You must implement set_servers";
}


sub get_server {
    die "You must implement get_sock";
}

1;

__END__