#!/usr/bin/perl
use strict;
use warnings;
use Search::Tools;
use Search::Tools::HiLiter;
use Search::Tools::XML;
use File::Slurp;
use Benchmark qw(:all);

my $buf     = read_file('t/docs/ascii.txt');
my $query   = Search::Tools->parser->parse('thronger');
my $hiliter = Search::Tools::HiLiter->new( query => $query, );
cmpthese(
    1000,
    {   'hilite' => sub {
            my $lit = $hiliter->light($buf);
        },
    }
);