;
use RDF::Query;
use Getopt::Long;
use utf8;
use Encode;
use JSON ();
my $JSON = JSON->new->utf8->allow_nonref;
sub encode_json { $JSON->encode(@_) }
my ($subject,$predicate,$object);
@ARGV = map ":%s,\"object\":%s}\n",
encode_json($st->subject->value),
encode_json($st->predicate->value),
encode_json($st->object->value);
}
}
print }
$h->{$v} = $val;
}
print (",\n") if ($count++ > 0);
print encode_json($h);
}
print "\n";
}
print "]\n";
}::UserAgent;
use HTTP::Request::Common;
use Log::Any ();
use Cache::LRU;
use Clone qw(clone);
use JSON;
use URI::Template;
use RDF::LDF::Error;
our $VERSION = '0.25';
has url => (
is => 'ro' ,
fo("fetching: $url");
my $model = RDF::Trine::Model->temporary_model;
# JSON support in RDF::Trine isn't JSON-LD
# Set the accept header quality parameter at a minimum for this format
pplication/x-turtle;q=1.0,application/rdf+xml;q=0.9,text/x-nquads;q=0.9,application/json;q=0.1,application/x-rdf+json;q=0.1');
eval {
# Need to explicitly set the useragent to keep the ac