/usr/share/perl5/SRU/Request/Scan.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 | package SRU::Request::Scan;
{
$SRU::Request::Scan::VERSION = '1.01';
}
#ABSTRACT: A class for representing SRU scan requests
use strict;
use warnings;
use base qw( Class::Accessor SRU::Request );
use SRU::Utils qw( error );
sub new {
my ($class,%args) = @_;
return $class->SUPER::new( \%args );
}
my @validParams = qw(
version
scanClause
responsePosition
maximumTerms
stylesheet
extraRequestData
);
sub validParams { return @validParams; }
SRU::Request::Scan->mk_accessors( @validParams );
sub cql {
my $self = shift;
my $clause = $self->scanClause();
return '' unless $clause;
my $node;
my $parser = CQL::Parser->new();
eval { $node = $parser->parse( $clause ) };
return $node;
}
1;
__END__
=pod
=head1 NAME
SRU::Request::Scan - A class for representing SRU scan requests
=head1 SYNOPSIS
## creating a new request
my $request = SRU::Request::Scan->new();
=head1 DESCRIPTION
SRU::Request::Scan is a class for representing SRU 'scan' requests.
=head1 METHODS
=head2 new()
The constructor, which you can pass the parameters: version, scanClause
responsePosition, maximumTerms, stylesheet, extraRequestData.
my $request = SRU::Request::Explain->new(
version => '1.1',
scanClause => 'horses',
);
=cut
=head2 version()
=head2 scanClause()
=head2 responsePosition()
=head2 maximumTerms()
=head2 stylesheet()
=head2 extraRequestData()
=cut
=head2 validParams()
=cut
=head2 cql()
Fetch the root node of the CQL parse tree for the scan clause.
=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
|