CPAN::Groonga

package Stepford::Grapher::Renderer::Json;

use strict;
use warnings;
use namespace::autoclean;
use autodie;

use JSON::PP qw( encode_json );

use Moose;

our $VERSION = '1.01';

with(
    'Stepford::

pen as raw because encode_json produces bytes not chars
        open $fh, '>:raw', $self->output;
    }

    print $fh encode_json($data)
        or die "Problem printing JSON: $!";
    return;
}

__P

e_immutable;
1;

# ABSTRACT: Render to a JSON data structure

__END__

=pod

=encoding UTF-8

=head1 NAME

Stepford::Grapher::Renderer::Json - Render to a JSON data structure

=head1 VERSION

version 

$ext;
}

# TODO: Make this configurable from the command line, either by accepting some
# sort of JSON-as-command-line-argument-flag setting, or by having multiple
# attributes that *are* individually