File: json.pl

package info (click to toggle)
librdf-query-perl 2.918-1
  • links: PTS, VCS
  • area: main
  • in suites: buster, stretch
  • size: 2,580 kB
  • ctags: 1,724
  • sloc: perl: 30,668; makefile: 19; csh: 10
file content (24 lines) | stat: -rwxr-xr-x 576 bytes parent folder | download | duplicates (4)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
#!/usr/bin/env perl
use strict;
use warnings;
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::Query->error;
unless ($query) {
	warn "Failed to construct query object: " . RDF::Query->error;
	exit;
}

# my $pattern	= $query->pattern;
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);