/usr/share/perl5/RDF/QueryX/Lazy.pm is in librdf-queryx-lazy-perl 0.003-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 | package RDF::QueryX::Lazy;
use 5.010;
use common::sense;
use constant { FALSE => 0, TRUE => 1 };
use utf8;
our (%Lazy);
BEGIN {
$RDF::QueryX::Lazy::AUTHORITY = 'cpan:TOBYINK';
$RDF::QueryX::Lazy::VERSION = '0.003';
%Lazy =
map { /^PREFIX (.+?):/ ? ($1 => $_) : () }
split /\r?\n/, <<'LAZY';
PREFIX bibo: <http://purl.org/ontology/bibo/>
PREFIX bio: <http://purl.org/vocab/bio/0.1/>
PREFIX cc: <http://creativecommons.org/ns#>
PREFIX dc: <http://purl.org/dc/elements/1.1/>
PREFIX doap: <http://usefulinc.com/ns/doap#>
PREFIX foaf: <http://xmlns.com/foaf/0.1/>
PREFIX frbr: <http://purl.org/vocab/frbr/core#>
PREFIX geo: <http://www.w3.org/2003/01/geo/wgs84_pos#>
PREFIX gr: <http://purl.org/goodrelations/v1#>
PREFIX ical: <http://www.w3.org/2002/12/cal/ical#>
PREFIX og: <http://ogp.me/ns#>
PREFIX org: <http://www.w3.org/ns/org#>
PREFIX owl: <http://www.w3.org/2002/07/owl#>
PREFIX rdf: <http://www.w3.org/1999/02/22-rdf-syntax-ns#>
PREFIX rdfa: <http://www.w3.org/ns/rdfa#>
PREFIX rdfg: <http://www.w3.org/2004/03/trix/rdfg-1/>
PREFIX rdfs: <http://www.w3.org/2000/01/rdf-schema#>
PREFIX rev: <http://purl.org/stuff/rev#>
PREFIX rss: <http://purl.org/rss/1.0/>
PREFIX sioc: <http://rdfs.org/sioc/ns#>
PREFIX skos: <http://www.w3.org/2004/02/skos/core#>
PREFIX vann: <http://purl.org/vocab/vann/>
PREFIX vcard: <http://www.w3.org/2006/vcard/ns#>
PREFIX void: <http://rdfs.org/ns/void#>
PREFIX wdrs: <http://www.w3.org/2007/05/powder-s#>
PREFIX wot: <http://xmlns.com/wot/0.1/>
PREFIX xhv: <http://www.w3.org/1999/xhtml/vocab#>
PREFIX xsd: <http://www.w3.org/2001/XMLSchema#>
LAZY
}
use Scalar::Util 0 qw[blessed refaddr];
use RDF::Query 2.900;
use parent qw[RDF::Query];
sub new
{
my ($class, $query, @params) = @_;
my $lazy = '';
$lazy .= join "\n",
map { $Lazy{$_} }
grep { $query =~ /$_:/ }
keys %Lazy;
if (exists $params[0]
and ref $params[0] eq 'HASH'
and ref $params[0]{lazy} eq 'HASH')
{
my %more = %{ delete($params[0]{lazy}) // {} };
$lazy .= join "\n",
map { sprintf('PREFIX %s: <%s>', $_, $more{$_}) }
grep { $query =~ /$_:/ }
keys %more;
}
return $class->SUPER::new($lazy.$query, @params);
}
TRUE;
__END__
=head1 NAME
RDF::QueryX::Lazy - yeah, all those PREFIX definitions get boring
=head1 SYNOPSIS
my $query = RDF::QueryX::Lazy->new(<<SPARQL);
SELECT *
WHERE {
?person foaf:name ?name .
OPTIONAL { ?person foaf:homepage ?page . }
}
SPARQL
=head1 DESCRIPTION
This is a fairly trivial subclass of L<RDF::Query> that auto-defines
many prefixes for you, so you can be lazy. It should have most of the
common ones in there.
Oh yeah, and if you want, you can pass a key 'lazy' in the RDF::Query
C<< %options >> hash with additional prefix mappings.
=head1 BUGS
Please report any bugs to
L<http://rt.cpan.org/Dist/Display.html?Queue=RDF-QueryX-Lazy>.
=head1 SEE ALSO
L<RDF::Query>.
=head1 AUTHOR
Toby Inkster E<lt>tobyink@cpan.orgE<gt>.
=head1 COPYRIGHT AND LICENCE
This software is copyright (c) 2011 by Toby Inkster.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=head1 DISCLAIMER OF WARRANTIES
THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
|