NAME

Senna::Snippet - Wrapper Around sen_snip

SYNOPSIS

use Senna::Constants qw(SEN_ENC_EUCJP);
use Senna::Snippet;

my $snip = Senna::Snippet->new(
  encoding    => SEN_ENC_EUCJP,
  width       => 100, # width of snippet
  max_results => 10, # max number of results returned on exec()
  default_open_tag => '<b>', # default '{'
  default_close_tag => '</b>'
);

$snip->add_cond(key => "poop", open_tag => "<s>", close_tag => "</s>");
$snip->add_cond(...);

my @text = $snip->exec( string => $text_to_be_snipped );

DESCRIPTION

Senna::Snippet allows you to extract out KWIC text, much like how Google and other search engines hilight the queried text in the search result.

METHODS

new

open

Alias to new().

add_cond

exec

AUTHOR

Copyright (C) 2005 - 2006 by Daisuke Maki <dmaki@cpan.org>

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.6 or, at your option, any later version of Perl 5 you may have available.

Development funded by Brazil Ltd. <http://dev.razil.jp/project/senna/>