JSON.pm

package DictyREST::Renderer::JSON;

use warnings;
use strict;
use Carp;

use version; our $VERSION = qv('1.0.0');

# Other modules:
use base 'Mojo::Base';
use JSON;
use Data::Dumper;

# Module implementation
#

__PACKAGE__->attr('json');

sub new {
    my ( $class, %arg ) = @_;
    my $self = {};
    bless $self, $class;
    return $self;
}

sub build {
    my ( $self, %arg ) = @_;
    $self->json( JSON->new() );
    return sub { $self->process(@_); };
}

sub process {
    my ( $self, $renderer, $c, $output ) = @_;
    return if $c->stash('format') ne 'json';
    my $obj = $c->stash('data');
    $c->app->log->debug("in json renderer");

    #routine to get perl data structure that will be converted to json
    $obj->init();
    my $conf = $obj->config();
    $$output = $self->json->objToJson(
        [ map { $_->to_json } @{ $conf->panels } ] );
    return 1;
}

1;    # Magic true value required at end of module

__END__

=head1 NAME

DictyREST::Renderer::JSON - [JSON renderer for DictyREST application]