URIオブジェクト

Perl VDL

URIをそのまま扱うからモジュールごとに固有のコードが多くなるのかな。URIをオブジェクトにして、

my $u = VDL::URI->new('http://example.com/video.url');
my $title = $u->content->extract_xpath('//hi[@id="title"]');
my $id = $u->content->extract(qr/id=([\d\w]+)/);
my $uri = VDL::URI->new("http://example.com/video.id=$id")->head->base;

こんな感じにできたら少しは楽かもしれない。

追記

こんな感じに作ってみた。チェーンしまくりんぐ＞＜