File Coverage

blib/lib/SWISH/API/Remote/Results.pm

Criterion	Covered	Total	%
statement	32	57	56.1
branch	2	6	33.3
condition	2	7	28.5
subroutine	8	16	50.0
pod	7	12	58.3
total	51	98	52.0

package SWISH::API::Remote::Results;
use SWISH::API::Remote::FunctionGenerator;
use strict;
use warnings;

############################################
use fields qw( results hits errors debugs iterator stopwords );


############################################
# results is a list of SWISH::API::Remote::Result objects,
# hits is an int of the number of hits found by swish-e
# errors is a list of lines
# debugs is a list of debug lines
# iterator is for NextResult() and SeekResult()
sub new {
    my $proto = shift;
    my $class = ref($proto) || $proto;
    my $self  = {};
    bless( $self, $class );
    $self->{iterator} = 0;
    $self->{results}  = [];
    $self->{errors}   = [];
    $self->{hits}     = 0;
    $self->{stopwords} = '';
    #$self->{headers}   = undef;
    return $self;
}


############################################
sub Error {
    my $self = shift;
    return scalar( @{ $self->{errors} } );
}


############################################
sub ErrorString {
    my $self = shift;
    return join ( "\n", @{ $self->{errors} } ) . "\n";
}


############################################
sub SeekResult {
    my $self = shift;
    $self->{iterator} = shift || 0;
}


############################################
sub NextResult {
    my ($self) = @_;
    my $ret = undef;
    if ( $self->{iterator} < @{ $self->{results} } ) {
        $ret = $self->{results}[ $self->{iterator} ];
        $self->{iterator}++;
    }
    return $ret;
}


############################################
sub Hits {
    my $self = shift;
    if (@_) { $self->{hits} = $_[0] }
    else { return ( $self->{hits} || 0 ) }
}

############################################
sub Fetched {
    my $self = shift;
    exists( $self->{results} ) ? scalar( @{ $self->{results} } ) : 0;
}

############################################
sub AddResult {
    my ( $self, $result ) = @_;
    push ( @{ $self->{results} }, $result );
}

############################################
sub AddError {
    my ( $self, $error ) = @_;
    push ( @{ $self->{errors} }, $error );
}

############################################
sub AddDebug {
    my ( $self, $debug ) = @_;
    push ( @{ $self->{debugs} }, $debug );
}

############################################
# for conformance with SWISH::API
# TODO: Code this!!!
sub HeaderNames
{
    my $self = shift;
    my (%h);
    return sort keys %h;
}

############################################
# S::A vers 0.04 syntax , according to peknet
sub header_names { return HeaderNames(@_) }

############################################
SWISH::API::Remote::FunctionGenerator::makeaccessors(__PACKAGE__,
                                 qw ( results errors stopwords ));


1;
__END__