Yet Another CPAN Grep

App-perlrdf-Command-Query ( T/TO/TOBYINK/App-perlrdf-Command-Query-0.004.tar.gz, TOBYINK, 2014; MetaCPAN )

App-perlrdf-Command-Query/lib/App/perlrdf/FileSpec/OutputBindings.pm ( view source; MetaCPAN )

c::OutputBindings::VERSION   = '0.004';
}

use Any::Moose;
use File::Temp qw(tempfile);
use JSON qw(from_json);
use RDF::Trine;
use Spreadsheet::Wright;
use YAML::XS qw(Dump);

use namespace::clean;

 if $self->uri =~ /\.ya?ml/i;
	return 'XML'     if $self->uri =~ /\.xml/i;
	return 'JSON'    if $self->uri =~ /\.json/i;
	return 'CSV'     if $self->uri =~ /\.csv/i;
	return 'XLS'     if $self->uri =~

 @_;

	if ($self->format =~ /json/i)
	{
		$self->handle->print($iter->as_json);
	}
	elsif ($self->format =~ /yaml/i)
	{
		$self->handle->print(Dump from_json($iter->as_json));
	}
	elsif ($self->format

App-perlrdf-Command-Query ( T/TO/TOBYINK/App-perlrdf-Command-Query-0.004.tar.gz, TOBYINK, 2014; MetaCPAN )

App-perlrdf-Command-Query/lib/App/perlrdf/Command/QueryParse.pm ( view source; MetaCPAN )

 query_parse );
use constant description   => <<'DESCRIPTION';
Output formats are: SSE (default), JSON, YAML, SPARQL.
DESCRIPTION

use constant opt_spec => (
	[ 'execute|e=s',       'Query to parse' ]

' options.")
		if exists $opt->{sparql_file} && exists $opt->{execute};
}

sub execute
{
	require JSON;
	require YAML::XS;
	require RDF::Query;
	
	my ($self, $opt, $arg) = @_;
	
	my $sparql = $self->_

putFile',
	);
	
	foreach my $out (@outputs)
	{
		my $str;
		
		if ($out->format =~ /json/i)
			{ $str = JSON::to_json( $query->as_hash, {pretty=>1,canonical=>1} ) }
		elsif ($out->format =~ /ya?ml/i)