Rimoのチャンネル追加APIについて

RimoChでは、チャンネル情報を登録する際に、RimoCh上に情報を登録すると同時に、サーバ側でRimoにアクセスして、Rimo上でも同じソース（URL）に基づくチャンネルを作成しています。Rimoにはチャンネルを作成するAPI（？）があり、実際、Rimo上でチャンネルを作成する際に利用されているので、RimoChもそのAPIを利用してたりします。

URL	http://rimo.tv/channel/xml
Method	GET/POST
Parameter	url（チャンネルソースとなるページのURL）
Returns	XML（ソースURLに含まれるYouTubeビデオ一覧）

urlパラメタにチャンネルのソースとなるページのURLをわたしてアクセスすると、チャンネルがまだRimo上に存在しない場合は新たに作成します。また、チャンネルが既に存在しても、存在しなくても、ソースのURLに含まれるビデオの一覧を含むXMLを返します。つまり、チャンネル作成のみならず、あるURLに含まれるYouTubeのビデオ情報一覧を返却してくれるものでもあります。 サンプル: http://rimo.tv/channel/xml?url=http://b.hatena.ne.jp/video

<videos title="はてなブックマーク - 注目の動画">
<video title="外山恒一の憂鬱" youtube_id="4oXDIHw-xQo" thumbnail_url="http://sjl-static10.sjl.youtube.com/vi/4oXDIHw-xQo/2.jpg" length_seconds="26" video_id="28301"/>
<video title="川澄綾子 おなら体操" youtube_id="xFlfemYA0TM" thumbnail_url="http://img.youtube.com/vi/xFlfemYA0TM/2.jpg" length_seconds="31" video_id="27289"/>
<video title="鴨志田穣" youtube_id="KvV0lxem9mY" thumbnail_url="http://sjc-static13.sjc.youtube.com/vi/KvV0lxem9mY/2.jpg" length_seconds="365" video_id="28302"/>
...
</videos>

RimoChでは、下記の通り、ざっくりとモジュールを作って、チャンネル作成をしてたりします。

package WebService::Rimo::Channel;
use strict;
use warnings;
use Carp;
use XML::Simple;
use LWP::UserAgent;
use base qw(Class::Accessor::Fast);
our $VERSION = '0.02';
__PACKAGE__->mk_accessors(qw(videos ua));
sub new {
my $class = shift;
bless {
ua => LWP::UserAgent->new(agent => __PACKAGE__."/$VERSION"),
}, $class;
}
sub create {
my ($self, $source_url) = @_;
my $res = $self->ua->get("http://rimo.tv/channel/xml?url=$source_url");
croak sprintf "%d: %s", $res->code, $res->message
if $res->is_error;
my $xml = XMLin($res->content, ForceArray => 1);
croak "No video found in $source_url"
unless $xml->{video};
$self->videos($xml->{video});
}
1;