The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
# add Enclosure http://www.mainichi-msn.co.jp/photo/etc/photo_feature/
sub handle {
    my ($self, $url) = @_;
    $url =~ qr!http://www.mainichi-msn.co.jp/.*/graph/.*\d+\.html$!;
}

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

    if ($args->{content} =~ m!<div class="image"><a href="\d+\.html"><img src="(\d+\.jpg)"!) {
        my $enclosure = Plagger::Enclosure->new;
        $enclosure->url( URI->new_abs($1, $args->{url}) );
        $enclosure->auto_set_type;
        return $enclosure;
    }

    return;
}