File Coverage

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

Criterion	Covered	Total	%
statement	20	24	83.3
branch	3	6	50.0
condition			n/a
subroutine	6	7	85.7
pod	2	2	100.0
total	31	39	79.4

package Jifty::DBI::Filter::base64;

use warnings;
use strict;

use base qw|Jifty::DBI::Filter|;
use Encode qw(encode_utf8 is_utf8);
use MIME::Base64 ();

=head1 NAME

Jifty::DBI::Filter::base64 - Encodes data as base64

=head1 DESCRIPTION

This filter allow you to store arbitrary data in a column of type
'text'.

=head2 encode

If value is defined, then encodes it using L after
passing it through 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;

    $$value_ref = MIME::Base64::encode_base64(
        is_utf8($$value_ref) ? encode_utf8($$value_ref) : $$value_ref
    );

    return 1;
}

=head2 decode

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

=cut

sub decode {
    my $self = shift;

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

    $$value_ref = MIME::Base64::decode_base64($$value_ref);
}

=head1 SEE ALSO

L, L

=cut

1;