- or download this
package MyApp::Schema::DB::Result::Table;
...
...
sub TO_JSON {
return { $_[0]->get_inflated_columns };
}
- or download this
package MyApp::View::JSON;
...
my( $self, $c, $data ) = @_;
$encoder->encode( $data );
}
- or download this
package MyApp::Schema::DB::Result::Base;
...
...
extends 'MyApp::Schema::DB::Result::Base';
...