CPAN::Groonga

ings;
no warnings 'redefine';
use lib qw(../lib lib);

use JSON;
use Data::Dumper;
use RDF::Query;
use RDF::Query::Util;

my $json	= new JSON;
my $query	= &RDF::Query::Util::cli_make_query or die RDF:

rn;
my ($pattern)	= $query->pattern->subpatterns_of_type( 'RDF::Query::Algebra::GroupGraphPattern' );
my $hash		= $pattern->as_hash;

# print $json->pretty->encode($hash);
print $json->encode($hash);

Carp qw(carp croak confess);

use URI::file;
use RDF::Query;
use LWP::Simple;
use File::Spec;
use JSON;

######################################################################

our ($VERSION);
BEGIN {

ME}, '.prefix-cmd', 'prefixes.json');
	if (-r $file) {
		my $json		= do { local($/) = undef; open( my $fh, '<', $file ) or next; <$fh> };
		my $prefixes	= from_json($json);
		$PREFIXES	= join("\n", ma

e File::Spec;
use Data::Dumper;
use lib qw(../lib lib);
use RDF::Query;
use RDF::Query::Util;
use JSON;
use Data::Dumper;

unless (@ARGV) {
	print STDERR <<"END";
USAGE: $0 -e 'SELECT * ...'
USAGE: $0

my $query	= &RDF::Query::Util::cli_make_query;
if ($query) {
	print $query->sse . "\n";
	print to_json( $query->as_hash, { ascii => 1, pretty => 1, allow_blessed => 0 } );
} else {
	warn RDF::Query->e