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.61'; use JSON::Tokenize 'tokenize_json'; sub json_minify { my ($json) = @_; my $tokens = tokenize_json ($json); my $nospace = strip_whitespace ($tokens, $json); return $nospace; } 1;