/usr/share/perl5/AtteanX/Query/AccessPlan/LDF.pm is in libatteanx-store-ldf-perl 0.04-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 | use 5.010001;
use strict;
use warnings;
package AtteanX::Query::AccessPlan::LDF;
use Class::Method::Modifiers;
our $AUTHORITY = 'cpan:KJETILK';
our $VERSION = '0.04';
use Moo::Role;
use Carp;
use RDF::LDF;
use AtteanX::Plan::LDF::Triple;
around 'access_plans' => sub {
my $orig = shift;
my @params = @_;
my $self = shift;
my $model = shift;
my $active_graphs = shift;
my $pattern = shift;
# First, add any plans coming from the original planner (which will
# include queries to the remote SPARQL endpoint
my @plans = $orig->(@params);
# Add my plans
push(@plans, AtteanX::Plan::LDF::Triple->new(subject => $pattern->subject,
predicate => $pattern->predicate,
object => $pattern->object,
distinct => 0));
return @plans;
};
1;
__END__
=pod
=head1 NAME
AtteanX::Query::AccessPlan::LDF - An access plan for Linked Data Fragments
=head1 DESCRIPTION
This provides the implementation of a L<Moo::Role> that serves to wrap
any C<access_plan> in query planning. An access plan introduces a plan
object for a triple or quad pattern, in this case a
L<AtteanX::Plan::LDF::Triple> object.
=head1 AUTHOR
Kjetil Kjernsmo E<lt>kjetilk@cpan.orgE<gt>.
=head1 COPYRIGHT AND LICENCE
This software is copyright (c) 2016 by Kjetil Kjernsmo
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
|