view release on metacpan or  search on metacpan

lib/Apache/SPARQL.pm  view on Meta::CPAN

	if ( $class->_mp2 ) {
		if($field) {
			return CGI::param($field);
		} else {
			my @params = CGI::param();
			return @params;	
			};
		};

	my $request = Apache::Request->new($ap);

	if($field) {
		return $request->param($field);
	} else {
		my @params = $request->param;
		return @params;	
		};
	};

sub _nometh {
	my ($class, $ap, $field) = @_;

	my $caller = (caller(1))[3];
	$caller =~ s/.*:://;

	$ap->log()->error(sprintf("package %s does not define a '%s' method", $class, $caller));

	return 0;
	};

sub _header_in {
	my ($class, $ap, $field) = @_;

	return ( $class->_mp2 ) ? $ap->headers_in()->{$field} : $ap->header_in($field);
	};

sub _header_out {
	my ($class, $ap, $field, $value) = @_;

	( $class->_mp2 ) ? $ap->headers_out()->{$field} = $value: $ap->header_out($field,$value);
	};

=cut

=head1 NAME

Apache::SPARQL - mod_perl handler base class to implement a SPARQL query service using HTTP bindings.

=head1 SYNOPSIS

 <Location /rdfstore>

   SetHandler	perl-script
   PerlHandler	Apache::SPARQL

 </Location>

 #

 my $ua  = LWP::UserAgent->new();
 my $req = HTTP::Request->new(GET => "http://pim.example/rdfstore?query=PREFIX+foaf%3A+%3Chttp%3A%2F%2Fxmlns.com%2Ffoaf%2F0.1%2F%3E%0D%0ASELECT+%3Fpg%0D%0AWHERE%0D%0A++%28%3Fwho+foaf%3Aname+%22Norm+Walsh%22%29%0D%0A++%28%3Fwho+foaf%3Aweblog+%3Fpg%29%...

 my $res = $ua->request($req);

=head1 DESCRIPTION

Apache::SPARQL is a mod_perl handler base class to implement a SPARQL query service using HTTP bindings.

=head1 IMPORTANT

This package is a base class and not expected to be invoked
directly. Please use one of the backends handlers instead.

=head1 SUPPPORTED BACKENDS

 Apache::SPARQL::RDFStore

=head1 MOD_PERL COMPATIBILITY

This handler will work with both mod_perl 1.x and mod_perl 2.x.

=head1 AUTHOR

Alberto Reggiori <alberto@asemantics.com>

=head1 SEE ALSO

 Apache::SPARQL::RDFStore
 http://www.w3.org/TR/rdf-sparql-protocol/
 http://www.w3.org/2001/sw/DataAccess/proto-wd/ (editor working draft)
 http://www.w3.org/2001/sw/DataAccess/prot26
 http://www.w3.org/TR/rdf-sparql-query/
 http://www.w3.org/2001/sw/DataAccess/rq23/ (edit working draft)

=head1 LICENSE

see LICENSE file included into this distribution

=cut

return 1;