Yet Another CPAN Grep

DBIx-Class-InflateColumn-Serializer-CompressJSON ( N/NO/NOUDARD/DBIx-Class-InflateColumn-Serializer-CompressJSON-0.004.tar.gz, NOUDARD, 2012; MetaCPAN )

DBIx-Class-InflateColumn-Serializer-CompressJSON/lib/DBIx/Class/InflateColumn/Serializer/CompressJSON.pm ( view source; MetaCPAN )

erializer-CompressJSON
#
# This software is copyright (c) 2012 by Weborama.  No
# license is granted to other entities.
#
package DBIx::Class::InflateColumn::Serializer::CompressJSON;
{
  $DBIx::Class

n::Serializer::CompressJSON::VERSION = '0.004';
}

# ABSTRACT: DBIx::Class::InflateColumn::Serializer::CompressJSON - JSON compressed Inflator

use strict;
use warnings;
use JSON qw//;
use Compress::Z

press( JSON::to_json(shift) );
        }
        elsif ( $compress_method eq 'mysql' ) {
            my $json = JSON::to_json(shift);
            $b = pack( 'L', length($json) ) . compress($json);