File Coverage

blib/lib/SRU/Request/SearchRetrieve.pm

Criterion	Covered	Total	%
statement	17	26	65.3
branch	0	2	0.0
condition			n/a
subroutine	6	8	75.0
pod	3	3	100.0
total	26	39	66.6

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__