The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

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

VERSION

version 0.001

NAME

DBIx::Class::InflateColumn::Serializer::JSON - CompressJSON Inflator =head1 SYNOPSIS

  package MySchema::Table;
    use base 'DBIx::Class';

    __PACKAGE__->load_components('InflateColumn::Serializer', 'Core');
    __PACKAGE__->add_columns(
        'data_column' => {
            'data_type' => 'VARCHAR',
            'size'      => 255,
            'serializer_class'   => 'CompressJSON'
        }
     );

     Then in your code...

     my $struct = { 'I' => { 'am' => 'a struct' };
     $obj->data_column($struct);
     $obj->update;

     And you can recover your data structure with:

     my $obj = ...->find(...);
     my $struct = $obj->data_column;

The data structures you assign to "data_column" will be saved in the database in JSON format.

get_freezer

Called by DBIx::Class::InflateColumn::Serializer to get the routine that serializes the data passed to it. Returns a coderef.

get_unfreezer

Called by DBIx::Class::InflateColumn::Serializer to get the routine that deserializes the data stored in the column. Returns a coderef.

AUTHOR

Baptiste FOSSÉ <baptiste@weborama.com>

COPYRIGHT AND LICENSE

This software is copyright (c) 2012 by Weborama. No license is granted to other entities.

1 POD Error

The following errors were encountered while parsing the POD:

Around line 131:

Non-ASCII character seen before =encoding in 'FOSSÉ'. Assuming UTF-8