File Coverage

blib/lib/KinoSearch1/Analysis/PolyAnalyzer.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch	3	4	75.0
condition			n/a
subroutine	10	10	100.0
pod	2	2	100.0
total	46	47	97.8

package KinoSearch1::Analysis::PolyAnalyzer;
use strict;
use warnings;
use KinoSearch1::Util::ToolSet;
use base qw( KinoSearch1::Analysis::Analyzer );

BEGIN {
    __PACKAGE__->init_instance_vars(
        # constructor params / members
        analyzers => undef,
    );
}

use KinoSearch1::Analysis::LCNormalizer;
use KinoSearch1::Analysis::Tokenizer;
use KinoSearch1::Analysis::Stemmer;

sub init_instance {
    my $self = shift;
    my $language = $self->{language} = lc( $self->{language} );

    # create a default set of analyzers if language was specified
    if ( !defined $self->{analyzers} ) {
        croak("Must specify either 'language' or 'analyzers'")
            unless $language;
        $self->{analyzers} = [
            KinoSearch1::Analysis::LCNormalizer->new( language => $language ),
            KinoSearch1::Analysis::Tokenizer->new( language => $language ),
            KinoSearch1::Analysis::Stemmer->new( language => $language ),
        ];
    }
}

sub analyze {
    my ( $self, $token_batch ) = @_;

    # iterate through each of the anayzers in order
    $token_batch = $_->analyze($token_batch) for @{ $self->{analyzers} };

    return $token_batch;
}

1;

__END__