Beta Shell v2.0

File Manager

~ /usr/share/perl5/vendor_perl/RDF/Query

Name	Size	Perms	Modified	Actions
[ .. / .. ]
Algebra	-	drwxr-xr-x	2022-02-23 11:30:44	Del
Algebra.pm	8.61 KB	-rw-r--r--	2017-01-04 17:21:09	Edit Del
BGPOptimizer.pm	3.59 KB	-rw-r--r--	2017-01-04 17:21:09	Edit Del
Compiler	-	drwxr-xr-x	2022-02-23 11:30:44	Del
Error.pm	2.18 KB	-rw-r--r--	2017-01-04 17:21:09	Edit Del
ExecutionContext.pm	3.32 KB	-rw-r--r--	2017-01-04 17:21:09	Edit Del
Expression	-	drwxr-xr-x	2022-02-23 11:30:44	Del
Expression.pm	3.57 KB	-rw-r--r--	2017-01-04 17:21:08	Edit Del
Federate	-	drwxr-xr-x	2022-02-23 11:30:44	Del
Federate.pm	9.65 KB	-rw-r--r--	2017-01-04 17:21:08	Edit Del
Functions	-	drwxr-xr-x	2022-02-23 11:30:44	Del
Functions.pm	1.86 KB	-rw-r--r--	2017-01-04 17:21:07	Edit Del
Node	-	drwxr-xr-x	2022-02-23 11:30:44	Del
Node.pm	4.68 KB	-rw-r--r--	2017-01-04 17:21:06	Edit Del
Parser	-	drwxr-xr-x	2022-02-23 11:30:44	Del
Parser.pm	6.97 KB	-rw-r--r--	2017-01-04 17:21:06	Edit Del
Plan	-	drwxr-xr-x	2022-02-23 11:30:44	Del
Plan.pm	38.95 KB	-rw-r--r--	2017-01-04 17:21:02	Edit Del
ServiceDescription.pm	13.84 KB	-rw-r--r--	2017-01-04 17:21:02	Edit Del
Temporal.pm	2.03 KB	-rw-r--r--	2017-01-04 17:21:02	Edit Del
Util.pm	11.18 KB	-rw-r--r--	2017-01-04 17:21:02	Edit Del
VariableBindings.pm	2.26 KB	-rw-r--r--	2017-01-04 17:21:02	Edit Del

Editing: ExecutionContext.pm (3.32 KB)

# RDF::Query::ExecutionContext
# -----------------------------------------------------------------------------

=head1 NAME

RDF::Query::ExecutionContext - Query execution context

=head1 VERSION

This document describes RDF::Query::ExecutionContext version 2.918.

=head1 METHODS

=over 4

=cut

package RDF::Query::ExecutionContext;

use strict;
use warnings;

######################################################################

our ($VERSION);
BEGIN {
	$VERSION	= '2.918';
}

######################################################################

=item C<< new ( model => $model, query => $query, bound => \%bound ) >>

=cut

sub new {
	my $class	= shift;
	my %args	= @_;
	my $self	= bless( [{ %args }], $class );
	return $self;
}

=item C<< copy ( %new_args ) >>

=cut

sub copy {
	my $self	= shift;
	my %args	= @_;
	my $class	= ref($self);
	my @data;
	foreach my $i (0 .. $#{ $self }) {
		push(@data, { %{ $self->[$i] } });
	}
	@{ $data[0] }{ keys %args }	= values %args;
	return bless( \@data, $class );
}

=item C<< pushstack >>

=cut

sub pushstack {
	my $self	= shift;
	unshift( @{ $self }, {} );
}

=item C<< popstack >>

=cut

sub popstack {
	my $self	= shift;
	shift( @{ $self } );
}

=item C<< model >>

=cut

sub model {
	my $self	= shift;
	my $model	= $self->_get_value( 'model', @_ );
	unless ($model) {
		$model	= RDF::Trine::Model->temporary_model;
	}
	return $model;
}

=item C<< query >>

=cut

sub query {
	my $self	= shift;
	return $self->_get_value( 'query', @_ );
}

=item C<< options >>

=cut

sub options {
	my $self	= shift;
	return $self->_get_value( 'options', @_ );
}

=item C<< bound >>

=cut

sub bound {
	my $self	= shift;
	return $self->_get_value( 'bound', @_ ) || {};
}

=item C<< bind_variable ( $varname => $node ) >>

=cut

sub bind_variable {
	my $self	= shift;
	my $var		= shift;
	my $term	= shift;
	my $bound	= $self->_get_value( 'bound', @_ ) || {};
	$bound->{$var}	= $term;
	return $self->_get_value('bound', $bound);
}

=item C<< base_uri >>

=cut

sub base_uri {
	my $self	= shift;
	return $self->_get_value( 'base_uri', @_ ) || {};
}

=item C<< ns >>

=cut

sub ns {
	my $self	= shift;
	return $self->_get_value( 'ns', @_ ) || {};
}

=item C<< logger >>

=cut

sub logger {
	my $self	= shift;
	return $self->_get_value( 'logger', @_ );
}

=item C<< costmodel >>

=cut

sub costmodel {
	my $self	= shift;
	return $self->_get_value( 'costmodel', @_ );
}

=item C<< requested_variables >>

=cut

sub requested_variables {
	my $self	= shift;
	return $self->_get_value( 'requested_variables', @_ );
}

=item C<< optimize >>

=cut

sub optimize {
	my $self	= shift;
	return $self->_get_value( 'optimize', @_ );
}

=item C<< strict_errors >>

=cut

sub strict_errors {
	my $self	= shift;
	return $self->_get_value( 'strict_errors', @_ );
}

=item C<< optimistic_threshold_time >>

=cut

sub optimistic_threshold_time {
	my $self	= shift;
	return $self->_get_value( 'optimistic_threshold_time', @_ );
}

=item C<< delegate >>

=cut

sub delegate {
	my $self	= shift;
	return $self->_get_value( 'delegate', @_ );
}

sub _get_value {
	my $self	= shift;
	my $key		= shift;
	if (@_) {
		$self->[0]{ $key }	= shift;
		return $self->[0]{ $key };
	}
	foreach my $i (0 .. $#{ $self }) {
		if (exists($self->[ $i ]{ $key })) {
			return $self->[ $i ]{ $key };
		}
	}
	return;
}

1;

__END__

=back

=head1 AUTHOR

 Gregory Todd Williams <gwilliams@cpan.org>

=cut