root/lang/perl/plagger/lib/Plagger/Plugin/Filter/Gal.pm

package Plagger::Plugin::Filter::Gal;
use strict;
use base qw( Plagger::Plugin );

use Lingua::JA::Gal;

sub register {
    my($self, $context) = @_;

    $context->register_hook(
        $self,
        'update.entry.fixup' => \&filter
    );
}

sub filter {
    my($self, $context, $args) = @_;

    my $entry = $args->{entry};
    $entry->body( Lingua::JA::Gal->gal(
        $entry->body_text, { rate => $self->conf->{rate} || 100 }) );
}

1;
__END__

=head1 NAME

Plagger::Plugin::Filter::Gal -  Filter body text like Gal

=head1 SYNOPSIS

  - module: Filter::Gal
    config:
      username: your-username

=head1 DESCRIPTION

Filter body text like Gal using Lingua::JA::Gal

=head1 CONFIG

=over 4

=item rate

rate for converting. default is 100.

=back

=head1 AUTHOR

Yasuhiro MATSUMOTO

=head1 SEE ALSO

L<Plagger>, L<Lingua::JA::Gal>

=cut