Select Code to Download

package MyApp::Schema::DB::Result::Table;
...
...
sub TO_JSON {
  return { $_[0]->get_inflated_columns };  
}

package MyApp::View::JSON;

...
    my( $self, $c, $data ) = @_;
    $encoder->encode( $data );
}

package MyApp::Schema::DB::Result::Base;

...
...
extends 'MyApp::Schema::DB::Result::Base';
...