NAME
JSON::Color - Encode to colored JSON
VERSION
This document describes version 0.134 of JSON::Color (from Perl
distribution JSON-Color), released on 2023-07-02.
SYNOPSIS
use JSON::Color qw(encode_json);
say encode_json([1, "two", {three => 4}]);
# specify some options
say encode_json([1, "two", {three => 4}],
{
color_theme=>"bright256", # will be searched under ColorTheme::JSON::Color:: or ColorTheme::
});
# requires ColorTheme::Lens::Lighten
say encode_json([1, "two", {three => 4}],
{
color_theme=>["Lens::Lighten" =>{theme=>"JSON::Color::bright256"}],
});
DESCRIPTION
This module generates JSON, colorized with ANSI escape sequences.
To change the color, see the %theme in the source code. In theory you
can also modify it to colorize using HTML.
FUNCTIONS
encode_json($data, \%opts) => STR
Encode to JSON. Will die on error (e.g. when encountering non-encodeable
data like Regexp or file handle).
Known options:
* color_theme => STR
Pick a color theme, which is a ColorTheme color theme module, under
the following namespaces: "ColorTheme::JSON::Color::",
"ColorTheme::". The default is "default_ansi", which is the module
ColorTheme::JSON::Color::default_ansi. See the module source code
for an example of writing your own color theme module.
* pretty => BOOL (default: 0)
Pretty-print.
* linum => BOOL (default: 0)
Show line number.
* sort_by => CODE
If specified, then sorting of hash keys will be done using this sort
subroutine. This is similar to the "sort_by" option in the JSON
module. Note that code is executed in "JSON::Color" namespace,
example:
# reverse sort
encode_json(..., {sort_by => sub { $JSON::Color::b cmp $JSON::Color::a }});
Another example, using Sort::ByExample:
use Sort::ByExample cmp => {-as => 'by_eg', example => [qw/foo bar baz/]};
encode_json(..., {sort_by => sub { by_eg($JSON::Color::a, $JSON::Color::b) }});
FAQ
What about loading?
Use JSON.
How to handle non-encodeable data?
Use Data::Clean::JSON.
Why do numbers become strings?
Example:
% perl -MJSON::Color=encode_json -E'say encode_json([1, "1"])'
["1","1"]
To detect whether a scalar is a number (e.g. differentiate between "1"
and 1), the XS module Scalar::Util::LooksLikeNumber is used. This is set
as an optional prerequisite, so you'll need to install it separately.
After the prerequisite is installed:
% perl -MJSON::Color=encode_json -E'say encode_json([1, "1"])'
[1,"1"]
ENVIRONMENT
NO_COLOR
If defined, will set default color theme to ColorTheme::NoColor. See
for more details.
JSON_COLOR_COLOR_THEME
Set default color theme. Has precedence over "COLOR_THEME".
COLOR_THEME
Set default color theme.
HOMEPAGE
Please visit the project's homepage at
.
SOURCE
Source repository is at .
SEE ALSO
To colorize with HTML, you can try Syntax::Highlight::JSON.
Syntax::SourceHighlight can also colorize JSON/JavaScript to HTML or
ANSI escape. It requires the GNU Source-highlight library.
AUTHOR
perlancar
CONTRIBUTOR
Steven Haryanto
CONTRIBUTING
To contribute, you can send patches by email/via RT, or send pull
requests on GitHub.
Most of the time, you don't need to build the distribution yourself. You
can simply modify the code, then test via:
% prove -l
If you want to build the distribution (e.g. to try to install it locally
on your system), you can install Dist::Zilla,
Dist::Zilla::PluginBundle::Author::PERLANCAR,
Pod::Weaver::PluginBundle::Author::PERLANCAR, and sometimes one or two
other Dist::Zilla- and/or Pod::Weaver plugins. Any additional steps
required beyond that are considered a bug and can be reported to me.
COPYRIGHT AND LICENSE
This software is copyright (c) 2023, 2021, 2016, 2015, 2014, 2012 by
perlancar .
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
BUGS
Please report any bugs or feature requests on the bugtracker website
When submitting a bug or request, please include a test-file or a patch
to an existing test-file that illustrates the bug or desired feature.