sub handle {
my($self, $args) = @_;
$args->{entry}->link =~ qr!^http://(?:[\w\-]+\.g|d)\.hatena\.ne\.jp/!;
}
sub extract {
my($self, $args) = @_;
my $link = URI->new($args->{entry}->link);
my $path = $link->path;
$path .= '#' . $link->fragment if $link->fragment;
my $name = ( $path =~ /\#([\w\-]+)$/ )[0];
my $day_only = $path =~ m!^/[\w\-]+/\d+/?$!;
my $match =
$name ? qq!<h3><a href=".*?" name="$name">.*?</h3>(.*?)</div>! :
$day_only ? qq!<div class="section">(.*?)</div>! :
qq!</h3>(.*?)</div>!;
if ( $args->{content} =~ /$match/s ){
my $body = $1;
$body =~ s!<p class="sectionfooter">.*?</p>!!;
return "<div>$body</div>";
}
return;
}