File Coverage

lib/Badger/Codec/Storable.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	4	4	100.0
total	22	22	100.0

#========================================================================
#
# Badger::Codec::Storable
#
# DESCRIPTION
#   Codec for encoding/decoding data via the Storable module.
#
# AUTHOR
#   Andy Wardley
#
#========================================================================

package Badger::Codec::Storable;

use Badger::Class
    version => 0.01,
    base    => 'Badger::Codec';

use Storable qw( freeze thaw );

sub encode {
    my $self = shift;
    freeze(@_);
}

sub decode {
    my $self = shift;
    thaw(@_);
}

# shortcuts straight to the real encoder/decoder subs for efficient aliasing

sub encoder {
    \&freeze;
}

sub decoder {
    \&thaw;
}


1;

__END__