/usr/local/CPAN/Lingua-JA-Summarize-Extract/Lingua/JA/Summarize/Extract/Plugin/Sentence/Tiny.pm

• package Lingua::JA::Summarize::Extract::Plugin::Sentence::Tiny
  • sentence
• EOF

package Lingua::JA::Summarize::Extract::Plugin::Sentence::Tiny;

use strict;
use base qw( Lingua::JA::Summarize::Extract::Plugin );

sub sentence {
    my $self = shift;
    my $text = $self->text;

    $text =~ s/[ \x{3000}]+/ /g;
    $text =~ s/[\x{3001}\x{3002}]/\n/g;
    $text =~ s/[\r\n]+/\n/g;

    my $i = 1;
    my @sentence = map { { line => $i++, text => $_ } } split /\n/, $text;
    \@sentence;
}

1;