File Coverage

blib/lib/Memcached/Client/Compressor.pm

Criterion	Covered	Total	%
statement	19	23	82.6
branch	2	2	100.0
condition	0	3	0.0
subroutine	8	9	88.8
pod	5	5	100.0
total	34	42	80.9

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

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


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


sub compress_threshold {
    my ($self, $new) = @_;
    my $ret = $self->{compress_threshold};
    $self->{compress_threshold} = $new if ($new);
    return $ret;
}


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


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


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

1;

__END__