File Coverage

blib/lib/DBIx/Class/InflateColumn/Serializer/Sereal.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	4	4	100.0
condition			n/a
subroutine	11	11	100.0
pod	2	2	100.0
total	46	46	100.0

use 5.006;    # our
use strict;
use warnings;

package DBIx::Class::InflateColumn::Serializer::Sereal;

our $VERSION = '0.001002';

# ABSTRACT: Sereal based Serialization for DBIx Class Columns

our $AUTHORITY = 'cpan:KENTNL'; # AUTHORITY

use Sereal::Encoder 2.070000 qw( sereal_encode_with_object );
use Sereal::Decoder 2.070000 qw( sereal_decode_with_object );
use Carp qw( croak );

sub get_freezer {
  my ( undef, undef, $col_info, undef ) = @_;
  my $encoder = Sereal::Encoder->new();
  if ( defined $col_info->{'size'} ) {
    return sub {
      my $v = sereal_encode_with_object( $encoder, $_[0] );
      croak('Value Serialization is too big')
        if length($v) > $col_info->{'size'};
      return $v;
    };
  }
  return sub {
    return sereal_encode_with_object( $encoder, $_[0] );
  };
}

sub get_unfreezer {
  my $decoder = Sereal::Decoder->new();
  return sub {
    return sereal_decode_with_object( $decoder, $_[0] );
  };
}

1;

__END__