Plagger::Plugin::Filter::Summarize::Japanese - Charsbar::Noteとりあえずさらしてみる。 package Plagger::Plugin::Filter::Summarize::Japanese; use strict; use base qw( Plagger::Plugin ); our $VERSION = '0.01'; use Encode; use Lingua::JA::Summarize; sub register { my($self, $context) = @_; $context->register_hook( $self, 'update.entry.fixup' => \&filter, ); } sub filter { my($self, $context, $args) = @_; my $encoding = $self->conf->{encoding} || 'euc-jp'; my $maxwords = $s
