Plugin::Widget::CPAN - qw/Perる 日誌/entryのbodyにPerlのモジュールらしきものがあったらCPANへの検索リンクをつけたすWidget。 package Plagger::Plugin::Widget::CPAN; use strict; use base qw( Plagger::Plugin ); use Encode; use HTML::Entities; use URI; sub register { my($self, $context) = @_; $context->register_hook( $self, 'publish.entry.fixup' => \&add, ); } sub add { my($self, $context, $args) = @_; $args->{entry}->add_widget($self); } sub html { my($self, $entry) =
