Filter::DeleteBody

EntryFullTextの確認用に思いつきネタとして作って見ました。本文を削除します。
これをFilter::EntryFullTextの前に記述すれば、確実に本文を全部取得します。

 package Plagger::Plugin::Filter::DeleteBody;

 use strict;

 use warnings;

 use base qw( Plagger::Plugin );
 our $VERSION = 0.01;


 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("");

 }
 1;