NAME

Data::Format::Pretty::JSON - Pretty-print data structure as JSON

VERSION

version 0.07

SYNOPSIS

use Data::Format::Pretty::JSON qw(format_pretty);
print format_pretty($data);

Some example output:

• format_pretty({a=>1, b=>2})

  1:{
  2:    "a" : 1,
  3:    "b" : 2,
  4:}

  By default color is turned on (unless forced off via COLOR environment) as well as pretty printing (unless turned off via pretty=>1) and line numbers (unless when pretty=>0 or turned off by linum=>0).

• format_pretty({a=>1, b=>2}, {pretty=>0});

  {"a":1,"b":2}

DESCRIPTION

This module uses JSON to encode data as JSON.

FUNCTIONS

format_pretty($data, \%opts)

Return formatted data structure as JSON. Options:

• color => BOOL

  Whether to enable coloring. The default is the enable only when running interactively. Currently also enable line numbering.

• pretty => BOOL (default: 1)

  Whether to pretty-print JSON.

• linum => BOOL (default: 1 or 0 if pretty=0)

  Whether to add line numbers.

content_type() => STR

Return application/json.

ENVIRONMENT

COLOR => BOOL

Set color option (if unset).

LINUM => BOOL

Set linum option (if unset).

SEE ALSO

Data::Format::Pretty

AUTHOR

Steven Haryanto <stevenharyanto@gmail.com>

COPYRIGHT AND LICENSE

This software is copyright (c) 2013 by Steven Haryanto.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.