/usr/share/perl5/SRU/Request/SearchRetrieve.pm is in libsru-perl 1.01-2.
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 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 | package SRU::Request::SearchRetrieve;
{
$SRU::Request::SearchRetrieve::VERSION = '1.01';
}
#ABSTRACT: A class for representing SRU searchRetrieve requests
use strict;
use warnings;
use base qw( Class::Accessor SRU::Request );
use SRU::Utils qw( error );
use CQL::Parser;
sub new {
my ($class,%args) = @_;
return SRU::Request::SearchRetrieve->SUPER::new( \%args );
}
my @validParams = qw(
version
query
startRecord
maximumRecords
recordPacking
recordSchema
recordXPath
resultSetTTL
sortKeys
stylesheet
extraRequestData
);
sub validParams { return @validParams };
SRU::Request::SearchRetrieve->mk_accessors( @validParams );
sub cql {
my $self = shift;
my $query = $self->query();
return '' unless $query;
my $node;
my $parser = CQL::Parser->new();
eval { $node = $parser->parse( $query ) };
return $node;
}
1;
__END__
=pod
=head1 NAME
SRU::Request::SearchRetrieve - A class for representing SRU searchRetrieve requests
=head1 SYNOPSIS
## creating a new request
my $request = SRU::Request::SearchRetrieve->new(
version => '1.1',
query => 'kirk and spock' );
=head1 DESCRIPTION
=head1 METHODS
=head2 new()
The constructor which you can pass the following parameters:
version, query, startRecord, maximumRecords, recordPacking, recordSchema,
recordXPath, resultSetTTL, sortKeys, stylesheet, extraRequestData.
The version and query parameters are mandatory.
=cut
=head2 version()
=head2 query()
=head2 startRecord()
=head2 maximumRecords()
=head2 recordPacking()
=head2 recordSchema()
=head2 recordXPath()
=head2 resultSetTTL()
=head2 sortKeys()
=head2 stylesheet()
=head2 extraRequestData()
=cut
=head2 validParams()
=cut
=head2 cql()
Fetch the root node of the CQL parse tree for the query.
=cut
=head1 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.
=cut
|