json-hyper.pl

use v5.14;
use JSON::PP;
use JSON::Hyper;
use Data::Dumper;
use Devel::Confess;

# Construct a URI which has some JSON data. I'm using a
# data: URI because I'm too lazy to upload some JSON
# somewhere, but any URI that returns JSON should be OK.
#
my $uri = do {
	require URI::data;
	my $tmp = URI::->new('data:');
	$tmp->media_type('application/json');
	$tmp->data('{ "answer": 42 }');
	$tmp;
};

my $stuff = JSON::PP::->new->decode(<<"JSON");
{
	"foo": { "\$ref": "$uri" },
	"bar": []
}
JSON

print Dumper($stuff);

JSON::Hyper::->new->process_includes($stuff, 'http://example.com/', !!1);

print Dumper($stuff);