package MySchema::Result::Detail; use JSON::XS; # Class setup, etc. __PACKAGE__->inflate_column( data => { inflate => sub { decode_json( +shift ) }, deflate => sub { # Takes data structure or plain JSON string. my $json = shift; ref $json ? encode_json($json) : $json; }, });