NAME¶
SRU::Server - Respond to SRU requests via CGI::Application
SYNOPSIS¶
package MySRU;
use base qw( SRU::Server );
sub explain {
my $self = shift;
# $self->request isa SRU::Request::Explain
# $self->response isa SRU::Response::Explain
}
sub scan {
my $self = shift;
# $self->request isa SRU::Request::Scan
# $self->response isa SRU::Response::Scan
# $self->cql is the root node of a CQL::Parser-parsed query
}
sub searchRetrieve {
my $self = shift;
# $self->request isa SRU::Request::SearchRetrieve
# $self->response isa SRU::Response::SearchRetrieve
# $self->cql is the root node of a CQL::Parser-parsed query
}
package main;
MySRU->new->run;
DESCRIPTION¶
This module brings together all of the SRU verbs (explain, scan and
searchRetrieve) under a sub-classable object based on CGI::Application.
METHODS¶
explain¶
This method is used to return an explain response. It is the default method.
scan¶
This method returns a scan response.
searchRetrieve¶
This method returns a searchRetrieve response.
CGI::APPLICATION METHODS¶
setup¶
Sets the "run_modes",
"mode_param" and the default runmode
(explain).
cgiapp_prerun¶
Parses the incoming SRU request and if needed, checks the CQL query.
cgiapp_postrun¶
Sets the content type (text/xml) and serializes the response.
error_mode¶
Stub error runmode.
AUTHORS¶
- Brian Cassidy <bricas@cpan.org>
- Ed Summers <ehs@pobox.com>
- Jakob Voss <voss@gbv.de>
COPYRIGHT AND LICENSE¶
This software is copyright (c) 2013 by Ed Summers.
This is free software; you can redistribute it and/or modify it
under the same terms as the Perl 5 programming language system itself.
