Attean

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

  Role::Tiny: 2.000003
  Set::Scalar: 0
  Sub::Install: 0
  Sub::Util: 1.4
  Test::Modern: 0.012
  Test::Moose: 0
  Test::Roo: 0
  Test::TypeTiny: 0
  Text::CSV: 0
  Text::Table: 0
  Try::Tiny: 0
  Type::Tiny: 0
  URI::Escape: 1.36
  URI::NamespaceMap: 0.12
  UUID::Tiny: 0
  XML::SAX: 0
  namespace::clean: 0
  perl: 5.14.0
resources:
  IRC: irc://irc.perl.org/#perlrdf
  bugtracker: https://github.com/kasei/attean/issues

Makefile.PL  view on Meta::CPAN

requires		'Role::Tiny'				=> 2.000003;
requires		'Set::Scalar'				=> 0;
requires		'Sub::Install'				=> 0;
requires		'Sub::Util'					=> 1.40;
requires		'Test::Modern'				=> 0.012;
requires		'Test::Moose'				=> 0;
requires		'Test::Roo'					=> 0;
requires		'Test::TypeTiny'			=> 0;
requires		'Text::CSV'					=> 0;
requires		'Text::Table'				=> 0;
requires		'Try::Tiny'					=> 0;
requires		'Type::Tiny'				=> 0;
requires		'URI::Escape'				=> 1.36;
requires		'URI::NamespaceMap'			=> 0.12;
requires		'XML::SAX'					=> 0;

resources(
	'homepage'		=> "https://metacpan.org/release/Attean",
	'repository'	=> "https://github.com/kasei/attean/",
	'bugtracker'	=> "https://github.com/kasei/attean/issues",
	'IRC'			=> "irc://irc.perl.org/#perlrdf",

bin/attean_parse  view on Meta::CPAN

#!/usr/bin/env perl

use v5.14;
use autodie;
use strict;
use warnings;
use Getopt::Long;
use Scalar::Util qw(blessed);
use Time::HiRes qw(gettimeofday tv_interval);
use Attean;
use Try::Tiny;
use open ':std', ':encoding(utf8)';

unless (@ARGV) {
	print <<"END";
Usage: $0 -list
       $0 -i IN_FORMAT [-o OUT_FORMAT] FILENAME

END
	exit;
}

bin/attean_query  view on Meta::CPAN

no warnings 'once';
use autodie;
use File::Slurp;
use Scalar::Util qw(blessed);
use Attean;
use Attean::RDF;
use AtteanX::Functions::CompositeMaps;
use AtteanX::Functions::CompositeLists;
use Data::Dumper;
use Getopt::Long;
use Try::Tiny;
use open ':std', ':encoding(utf8)';

BEGIN { $Error::TypeTiny::StackTrace	= 1; }

if (scalar(@ARGV) < 1) {
	print STDERR <<"END";
Usage: $0 query.rq [data.ttl ...]

Parses the supplied SPARQL query to an Attean::Algebra object,
and executes it against a model containing the RDF data parsed

bin/canonicalize_bgp.pl  view on Meta::CPAN

use warnings;
no warnings 'once';
use autodie;
use File::Slurp;
use Scalar::Util qw(blessed);
use Attean;
use Attean::RDF;
use Attean::SimpleQueryEvaluator;
use Data::Dumper;
use Getopt::Long;
use Try::Tiny;
use Digest::SHA qw(sha1_hex);

if (scalar(@ARGV) < 1) {
	print STDERR <<"END";
Usage: $0 query.rq

Parses the supplied SPARQL query consisting of a simple BGP,
canonicalizes the BGP and emits a new query including a hash key for the
canonicalized query form and projection back to the original variable names.

lib/Test/Attean/SPARQLStarSuite.pm  view on Meta::CPAN

use HTTP::Message::PSGI;
use Data::Dumper;
use Encode qw(encode encode_utf8);
use Getopt::Long;
use Regexp::Common qw /URI/;
use Scalar::Util qw(blessed reftype);
use List::Util qw(all);
use Test::More;
use Test::Roo::Role;
use Text::CSV;
use Try::Tiny;
use URI::file;
use File::Spec;
use Types::Standard qw(Str Bool ArrayRef HashRef InstanceOf ConsumerOf);
require XML::Simple;

my $XSD		= 'http://www.w3.org/2001/XMLSchema#';
my $RDF		= 'http://www.w3.org/1999/02/22-rdf-syntax-ns#';
my $RDFS	= 'http://www.w3.org/2000/01/rdf-schema#';
my $RS		= 'http://www.w3.org/2001/sw/DataAccess/tests/result-set#';
my $MF		= 'http://www.w3.org/2001/sw/DataAccess/tests/test-manifest#';

lib/Test/Attean/SPARQLSuite.pm  view on Meta::CPAN

use HTTP::Response;
use HTTP::Message::PSGI;
use Data::Dumper;
use Encode qw(encode encode_utf8);
use Getopt::Long;
use Regexp::Common qw /URI/;
use Scalar::Util qw(blessed reftype);
use List::Util qw(all);
use Test::More;
use Text::CSV;
use Try::Tiny;
use URI::file;
use File::Spec;
use Types::Standard qw(Str Bool ArrayRef HashRef InstanceOf ConsumerOf);
require XML::Simple;

my $XSD		= 'http://www.w3.org/2001/XMLSchema#';
my $RDF		= 'http://www.w3.org/1999/02/22-rdf-syntax-ns#';
my $RDFS	= 'http://www.w3.org/2000/01/rdf-schema#';
my $RS		= 'http://www.w3.org/2001/sw/DataAccess/tests/result-set#';
my $MF		= 'http://www.w3.org/2001/sw/DataAccess/tests/test-manifest#';

lib/Test/Attean/W3CManifestTestSuite.pm  view on Meta::CPAN

use HTTP::Message::PSGI;
use Data::Dumper;
use Encode qw(encode encode_utf8 decode_utf8);
use Getopt::Long;
use Regexp::Common qw /URI/;
use Scalar::Util qw(blessed reftype);
use List::Util qw(all);
use Test::Modern;
use Test::Roo::Role;
use Text::CSV;
use Try::Tiny;
use URI::file;
use File::Spec;
use Types::Standard qw(Str Bool ArrayRef HashRef InstanceOf ConsumerOf);
require XML::Simple;

my $XSD		= 'http://www.w3.org/2001/XMLSchema#';
my $RDF		= 'http://www.w3.org/1999/02/22-rdf-syntax-ns#';
my $RDFS	= 'http://www.w3.org/2000/01/rdf-schema#';
my $RS		= 'http://www.w3.org/2001/sw/DataAccess/tests/result-set#';
my $MF		= 'http://www.w3.org/2001/sw/DataAccess/tests/test-manifest#';

t/store-simple.t  view on Meta::CPAN

use Attean;

sub create_store {
	my $self	= shift;
	return Attean->get_store('Simple')->new(@_);
}

with 'Test::Attean::QuadStore';
run_me; # run these Test::Attean tests

# use Try::Tiny;
# $Error::TypeTiny::StackTrace	= 1;
# try {
{
	my $s	= Attean::Blank->new('x');
	my $p	= Attean::IRI->new('http://example.org/p1');
	my $o	= Attean::Literal->new(value => 'foo', language => 'en-US');
	my $g	= Attean::IRI->new('http://example.org/graph');
	my $q	= Attean::Quad->new($s, $p, $o, $g);

	my @quads;

t/store-simpletriple.t  view on Meta::CPAN

use Attean;

sub create_store {
	my $self	= shift;
	return Attean->get_store('SimpleTripleStore')->new(@_);
}

with 'Test::Attean::TripleStore';
run_me; # run these Test::Attean tests

# use Try::Tiny;
# $Error::TypeTiny::StackTrace	= 1;
# try {
{
	my $s	= Attean::Blank->new('x');
	my $p	= Attean::IRI->new('http://example.org/p1');
	my $o	= Attean::Literal->new(value => 'foo', language => 'en-US');
	my $t	= Attean::Triple->new($s, $p, $o);

	my @triples;
	push(@triples, $t);