File Coverage

blib/lib/Jifty/DBI/Filter/Storable.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	4	4	100.0
condition			n/a
subroutine	6	6	100.0
pod	2	2	100.0
total	38	38	100.0

package Jifty::DBI::Filter::Storable;

use warnings;
use strict;

use base qw|Jifty::DBI::Filter|;
use Storable ();

=head1 NAME

Jifty::DBI::Filter::Storable - Encodes arbitrary data using Storable

=head1 DESCRIPTION

This filter allows you to store arbitrary Perl data structures in a
column of type 'blob', using L to serialize them.

=head2 encode

If value is defined, then encodes it using L. Does
nothing if value is not defined.

=cut

sub encode {
    my $self = shift;

    my $value_ref = $self->value_ref;
    return unless defined $$value_ref;

    $Storable::Deparse = 1;
    $$value_ref = Storable::nfreeze($value_ref);
}

=head2 decode

If value is defined, then decodes it using L, otherwise
does nothing.

=cut

sub decode {
    my $self = shift;

    my $value_ref = $self->value_ref;
    return unless defined $$value_ref;

    # Storable doesn't take Unicode strings.
    Encode::_utf8_off($$value_ref);

    local $@;
    $Storable::Eval = 1;
    $$value_ref = eval { ${ Storable::thaw($$value_ref) } };
}

=head1 SEE ALSO

L, L

=cut

1;