Yet Another CPAN Grep

DBIx-Class-FrozenColumns ( S/SY/SYBER/DBIx-Class-FrozenColumns-1.tar.gz, SYBER, 2011; MetaCPAN )

DBIx-Class-FrozenColumns/lib/DBIx/Class/FrozenColumns.pm ( view source; MetaCPAN )

ozen_columns> but uses Data::Dumper mechanism.

=head2 add_json_columns ($data_column, @columns)

Same as L</add_frozen_columns> but uses JSON::XS mechanism.

=cut

sub add_frozen_columns {
    my $th


        columns     => [@_],
    });
}

sub add_json_columns {
    shift->add_frozen_columns({
        type        => 'DBIx::Class::FrozenColumns::JSON',
        data_column => shift,
        columns

s || $this);
}


package DBIx::Class::FrozenColumns::JSON;
use base qw/DBIx::Class::FrozenColumns::Base/;

use strict;
use JSON::XS;
my $json = JSON::XS->new; #utf8 will be handled automatically (<dbt