File Coverage

blib/lib/KinoSearch1/Index/Term.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	4	6	66.6
condition			n/a
subroutine	9	9	100.0
pod	2	4	50.0
total	42	46	91.3

package KinoSearch1::Index::Term;
use strict;
use warnings;
use KinoSearch1::Util::ToolSet;
use base qw( KinoSearch1::Util::Class );

BEGIN {
    __PACKAGE__->init_instance_vars(
        field => undef,
        text  => undef,
    );
    __PACKAGE__->ready_get_set(qw( field text ));
}

sub new {
    croak("usage: KinoSearch1::Index::Term->new( field, text )")
        unless @_ == 3;
    return bless {
        field => $_[1],
        text  => $_[2],
        },
        __PACKAGE__;
}

# Alternate, internal constructor.
sub new_from_string {
    my ( $class, $termstring, $finfos ) = @_;
    my $field_num = unpack( 'n', bytes::substr( $termstring, 0, 2, '' ) );
    my $field_name = $finfos->field_name($field_num);
    return __PACKAGE__->new( $field_name, $termstring );
}

# Return an encoded termstring. Requires a FieldInfos to discover fieldnum.
sub get_termstring {
    confess('usage: $term->get_termstring($finfos)')
        unless @_ == 2;
    my ( $self, $finfos ) = @_;
    my $field_num = $finfos->get_field_num( $self->{field} );
    return unless defined $field_num;
    return pack( 'n', $field_num ) . $self->{text};
}

sub to_string {
    my $self = shift;
    return "$self->{field}:$self->{text}";
}

1;

__END__