File Coverage

blib/lib/Search/Fulltext.pm

Criterion	Covered	Total	%
statement	27	28	96.4
branch	7	10	70.0
condition			n/a
subroutine	7	7	100.0
pod	2	2	100.0
total	43	47	91.4

package Search::Fulltext;
use strict;
use warnings;
use utf8;

use Carp;

our $VERSION = '1.03';
use Search::Fulltext::SQLite;

sub new {
    my ($class, @args) = @_;
    my %args = ref $args[0] eq 'HASH' ? %{$args[0]} : @args;

    unless ($args{docs}) { croak "'docs' is required for creating new instance of $class" }
    $args{index_file} = ":memory:" unless defined $args{index_file};
    $args{tokenizer}  = "simple"   unless defined $args{tokenizer};
    $args{sqliteh}    = Search::Fulltext::SQLite::->new(
        docs      => $args{docs},
        dbfile    => $args{index_file},
        tokenizer => $args{tokenizer},
    );

    bless {
        %args
    }, $class;
}

sub search {
    my ($self, $query) = @_;
    return [] unless $query;

    my $sqliteh = $self->{sqliteh};
    $sqliteh->search_docids($query);
}

1;
__END__