view release on metacpan or  search on metacpan

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

	'Unauthorized' => 401,
	'Forbidden' => 403,
	'NotFound' => 404,
	'NoDeletionPerformed' => 409,
	'RequestRefused' => 409,
	'OperationPointError' => 500,
	'UnsupportedOperation' => 501,
	'Unavailable' => 503
	);

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

	return $Apache::SPARQL::Responses{ 'MalformedRequest' }
		unless(	$ap->method eq 'GET' or
			$ap->method eq 'OPTIONS' );

	my $uri_query_string = $ap->args;
	if(	$uri_query_string and
		$uri_query_string ne '' and
		$uri_query_string !~ m/^\s*$/ ) {