File Coverage

blib/lib/Lingua/JA/Summarize/Extract/Plugin/Parser/NgramSimple.pm

Criterion	Covered	Total	%
statement	9	20	45.0
branch	0	2	0.0
condition	0	2	0.0
subroutine	3	4	75.0
pod	0	1	0.0
total	12	29	41.3

package Lingua::JA::Summarize::Extract::Plugin::Parser::NgramSimple;

use strict;
use base qw( Lingua::JA::Summarize::Extract::Plugin );
__PACKAGE__->mk_accessors(qw/ gram /);

sub parse {
    my ($self) = @_;
    my $gram = $self->gram || 2;

    my $term_list = {};
    my $text = $self->text;
    while ($text =~ /([^\p{Common}]+)/g) {
        my $word = $1;
        my @part;
        for (my $i = 0;$i + $gram <= length $word;$i++) {
            push @part, substr $word, $i, $gram;
        }
        $term_list->{join ' ', @part}++ if @part;
    }
    $term_list;
}

1;

__END__