Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
array.pl	133 B	-rw-r--r--
assert.pl	231 B	-rw-r--r--
bad-utf8.pl	363 B	-rw-r--r--
bad-utf8.txt	376 B	-rw-r--r--
chr.pl	285 B	-rw-r--r--
collide.pl	223 B	-rw-r--r--
ebi.pl	229 B	-rw-r--r--
first-bit.pl	814 B	-rw-r--r--
hash.pl	132 B	-rw-r--r--
json-tiny-round-trip-demo.pl	1.16 KB	-rw-r--r--
kani.pl	313 B	-rw-r--r--
key-collision.pl	217 B	-rw-r--r--
long-number.pl	198 B	-rw-r--r--
sasori.pl	222 B	-rw-r--r--
synopsis.pl	186 B	-rw-r--r--
tokenize-synopsis.pl	629 B	-rwxr-xr-x
true-subs.pl	223 B	-rw-r--r--
unicode-details.pl	1.08 KB	-rw-r--r--
validjson	1.09 KB	-rwxr-xr-x
whitespace-synopsis.pl	410 B	-rw-r--r--

Code Editor : json-tiny-round-trip-demo.pl

#!/usr/bin/perl
use warnings;
use strict;
use utf8;
use JSON::Tiny '0.58', qw(decode_json encode_json);
use JSON::Parse;
use JSON::Create;
binmode STDOUT, ":encoding(utf8)";
my $cream = '{"clapton":true,"hendrix":false}';
my $jp = JSON::Parse->new ();
my $jc = JSON::Create->new (sort => 1);

print "First do a round-trip of our modules:\n\n";
print $jc->create ($jp->parse ($cream)), "\n\n";

print "Now do a round-trip of JSON::Tiny:\n\n";
print encode_json (decode_json ($cream)), "\n\n";

print "🥴 First, incompatible mode:\n\n";
print 'tiny(parse): ', encode_json ($jp->parse ($cream)), "\n";
print 'create(tiny): ', $jc->create (decode_json ($cream)), "\n\n";

# Set our parser to produce these things as literals:
$jp->set_true (JSON::Tiny::true);
$jp->set_false (JSON::Tiny::false);

print "🔄 Compatibility with JSON::Parse:\n\n";
print 'tiny(parse):', encode_json ($jp->parse ($cream)), "\n\n";
$jc->bool ('JSON::Tiny::_Bool');

print "🔄 Compatibility with JSON::Create:\n\n";
print 'create(tiny):', $jc->create (decode_json ($cream)), "\n\n";

print "🔄 JSON::Parse and JSON::Create are still compatible too:\n\n";
print $jc->create ($jp->parse ($cream)), "\n";

${this.title}

Code Editor : json-tiny-round-trip-demo.pl