Yet Another CPAN Grep

MojoX-AlmostJSON ( X/XL/XLAT/MojoX-AlmostJSON-1.151250.tar.gz, XLAT, 2015; MetaCPAN )

MojoX-AlmostJSON/lib/MojoX/AlmostJSON.pm ( view source; MetaCPAN )

package MojoX::AlmostJSON;
$MojoX::AlmostJSON::VERSION = '1.151250';
# ABSTRACT: Almost JSON but allow javascript function
# Code stolen from Mojo::JSON
use Mojo::Base -strict;
 
use B;
use Carp 'croa

ed';
 
our @EXPORT_OK = qw(decode_json encode_json false from_json j to_json true);
 
# Booleans
my ($FALSE, $TRUE) = map { bless \(my $dummy = $_), 'MojoX::AlmostJSON::_Bool' } 0, 1;
 
# Escaped spec

 $_} //= sprintf '\u%.4X', $_ }
 
sub decode_json {
  my $err = _decode(\my $value, shift);
  return defined $err ? croak $err : $value;
}
 
sub encode_json { Mojo::Util::encode 'UTF-8', _encode_value