File Coverage

blib/lib/SRU/Request/Scan.pm

Criterion	Covered	Total	%
statement	14	23	60.8
branch	0	2	0.0
condition			n/a
subroutine	5	7	71.4
pod	3	3	100.0
total	22	35	62.8

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__