#!/usr/bin/perl
use strict;
use warnings;
use Search::Tools;
use Search::Tools::Snipper;
use Search::Tools::XML;
use Benchmark qw(:all);
use File::Slurp;
my $html = read_file('t/docs/big-C-Child-abuse.html');
my $buf = Search::Tools::XML->strip_markup($html);
my $query = Search::Tools->parser->parse('child abuse');
my $snipper = Search::Tools::Snipper->new(
query => $query,
occur => 1,
context => 25,
max_chars => 190,
);
my $sentence_snipper = Search::Tools::Snipper->new(
query => $query,
occur => 1,
context => 25,
max_chars => 190,
as_sentences => 1,
);
cmpthese(
100,
{ 'no-sentences' => sub {
my $snip = $snipper->snip($buf);
},
'sentences' => sub {
my $snip = $sentence_snipper->snip($buf);
},
}
);