File Coverage

blib/lib/Memcached/Client/Serializer/Storable.pm

Criterion	Covered	Total	%
statement	34	36	94.4
branch	8	8	100.0
condition	2	2	100.0
subroutine	9	10	90.0
pod	3	3	100.0
total	56	59	94.9

package Memcached::Client::Serializer::Storable;
BEGIN {
  $Memcached::Client::Serializer::Storable::VERSION = '2.01';
}
#ABSTRACT: Implements Memcached Serializing using Storable

use strict;
use warnings;
use Memcached::Client::Log qw{DEBUG LOG};
use Storable qw{nfreeze thaw};
use base qw{Memcached::Client::Serializer};

use constant F_STORABLE => 1;

sub deserialize {
    my ($self, $data, $flags) = @_;

    return unless defined $data;

    $flags ||= 0;

    if ($flags & F_STORABLE) {
        $self->log ("Deserializing data") if DEBUG;
        $data = thaw $data;
    }

    return $data;
}

sub serialize {
    my ($self, $data) = @_;

    return unless defined $data;

    my $flags = 0;

    if (ref $data) {
        $self->log ("Serializing data") if DEBUG;
        $data = nfreeze $data;
        $flags |= F_STORABLE;
    }

    return ($data, $flags);
}


sub log {
    my ($self, $format, @args) = @_;
    LOG ($format, @args);
}

1;

__END__