CPAN::Groonga

package JSON::Whitespace;
use warnings;
use strict;
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw/json_minify/;
our %EXPORT_TAGS = (
    all => \@EXPORT_OK,
);

use warnings;
use strict;
use Carp;
our $VERSION = '0.62';

use JSON::Tokenize 'tokenize_json';

sub json_minify
{
    my ($json) = @_;
    my $tokens = tokenize_json ($json);
    my $nospace = strip_whitespace ($tokens, $json);
    return $nospace;
}

1;