autobox つかうんなら

こんぐらいまでやったらどうか>id:naoya

use strict;use warnings;use Acme::Shukugawa::Atom;use Boofy;use Term::Encoding qw/term_encoding/;use URI;use XML::Feed;use autobox;use autobox::Encode;use autobox::Core;


my $url = shift or die "usage: $0 <url>";
$_->title->shukugawafy->encode(term_encoding)->say for $url->as_uri->find_feeds->[0]->as_uri->as_feed->entries;


sub SCALAR::shukugawafy{Acme::Shukugawa::Atom->translate($_[0])}sub SCALAR::as_uri{URI->new($_[0])}sub URI::find_feeds{my@feeds=XML::Feed->find_feeds($_[0]) or die"Couldn't found any feed from $url";wantarray?@feeds:\@feeds;}sub URI::as_feed{XML::Feed->parse($_[0])or die XML::Feed->errstr}

追伸。
id:kazuhooku は掘ることが決定したので、明日会議室に 15 時集合な。他のみんなにはナイショだぞ。