debian man page for dbix::class::helper::row::tojson

Query: dbix::class::helper::row::tojson

OS: debian

Section: 3pm

Format: Original Unix Latex Style Formatted with HTML and a Horizontal Scroll Bar

DBIx::Class::Helper::Row::ToJSON(3pm)			User Contributed Perl Documentation		     DBIx::Class::Helper::Row::ToJSON(3pm)

NAME
DBIx::Class::Helper::Row::ToJSON - Remove the boilerplate from your TO_JSON functions
VERSION
version 2.013002
SYNOPSIS
package MyApp::Schema::Result::KittenRobot; use base 'DBIx::Class::Core'; __PACKAGE__->load_components(qw{Helper::Row::ToJSON}); __PACKAGE__->table('KittenRobot'); __PACKAGE__->add_columns( id => { data_type => 'integer', is_auto_increment => 1, }, kitten => { data_type => 'integer', }, robot => { data_type => 'text', is_nullable => 1, }, your_mom => { data_type => 'blob', is_nullable => 1, is_serializable => 1, }, ); 1; This helper adds a JSON method like the following: sub TO_JSON { return { id => $self->id, kitten => $self->kitten, # robot => $self->robot, # <-- doesn't serialize text columns your_mom => $self->your_mom, # <-- normally wouldn't but explicitly # asked for in the column spec above } }
METHODS
_is_column_serializable $self->_is_column_serializable('kitten') returns true if a column should be serializable or not. Currently this marks everything as serializable unless "is_serializable" is set to false, or "data_type" is a "blob", "text", or "ntext" columns. If you wanted to only have explicit serialization you might override this method to look like this: sub _is_column_serializable { my ( $self, $column ) = @_; my $info = $self->column_info($column); return defined $info->{is_serializable} && $info->{is_serializable}; } serializable_columns $self->serializable_columns simply returns a list of columns that TO_JSON should serialize. TO_JSON $self->TO_JSON returns a hashref representing your object. Override this method to add data to the returned hashref: sub TO_JSON { my $self = shift; return { customer_name => $self->customer->name, %{ $self->next::method }, } }
AUTHOR
Arthur Axel "fREW" Schmidt <frioux+cpan@gmail.com>
COPYRIGHT AND LICENSE
This software is copyright (c) 2012 by Arthur Axel "fREW" Schmidt. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. perl v5.14.2 2012-06-18 DBIx::Class::Helper::Row::ToJSON(3pm)
Related Man Pages
dbix::class::helper::resultset::autoremovecolumns(3pm) - debian
dbix::class::helper::resultset::correlaterelationship(3pm) - debian
dbix::class::helper::resultset::virtualview(3pm) - debian
dbix::class::helper::row::oncolumnchange(3pm) - debian
dbix::class::helper::row::subclass(3pm) - debian
Similar Topics in the Unix Linux Community
I am wondering whether I should ask you such a question
Alias commands
Append Second Row to First Row @ end in a file
Print &quot;From: To:&quot; Row Only On First Ocurrence
Output Row if Third Column is Larger