File Coverage

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

Criterion	Covered	Total	%
statement	6	15	40.0
branch			n/a
condition	0	6	0.0
subroutine	2	3	66.6
pod	0	1	0.0
total	8	25	32.0

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

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

sub parse {
    my ($self) = @_;
    my $han_size = $self->han_size || 2;
    my $kana_size = $self->kana_size || 3;
    my $latin_size = $self->latin_size || 3;

    my $term_list = {};
    my $text = $self->text;
    while ($text =~ /(\p{Katakana}{$kana_size,}|\p{Han}{$han_size,}|\p{Latin}{$latin_size,})/g) {
        $term_list->{$1}++;
    }

    $term_list;
}

1;
__END__