File Coverage

blib/lib/Search/Tools/TokenPP.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch			n/a
condition			n/a
subroutine	8	8	100.0
pod	2	2	100.0
total	26	26	100.0

package Search::Tools::TokenPP;
use Moo;
extends 'Search::Tools::Object';
use Carp;
use overload
    '""'     => sub { $_[0]->str; },
    'bool'   => sub { $_[0]->len; },
    fallback => 1;

use namespace::autoclean;

our $VERSION = '1.004';

my @attrs
    = qw( is_match is_hot pos str len u8len is_sentence_start is_sentence_end );

for my $attr (@attrs) {
    has $attr => ( is => 'rw' );
}

sub set_hot   { $_[0]->is_hot( $_[1] ); }
sub set_match { $_[0]->is_match( $_[1] ); }

1;

__END__