WWW::Riro 叩き台

ひさしぶりにダイアリー書く。
最近 wassrからriroに浮気気味ですよ。
で、riroがAPIを提供してないので、またカッとなってWWW::Riro書いた。

データは以下な感じで取得

#!/usr/local/bin/perl
use strict;
use warnings;
use WWW::Riro;
use YAML;
use Encode;

my $riro = WWW::Riro->new(
  email   => 'YOUR EMAIL',
  password => 'YOUR PASSWORD',
);
$riro->login();
my $t = $riro->user_timeline();
my $p = $riro->user_timeline();
my $t_yaml = YAML::Dump $t;
my $p_yaml = YAML::Dump $p;
utf8::encode $t_yaml;
utf8::encode $p_yaml;

print $t_yaml;
print $p_yaml;

$riro->update(status => 'test hogehoge!');

$riro->logout();

public_timeline や postはいいんですが、user_timelineが WWW::Mechanize で取得できなかったので、携帯UAを名乗って携帯画面のhtmlを取得しています。

サイト自体shift-jisなのですが、モジュール内でencode,decode してますのでデータ取得時の文字コードはflagged-utf8です。postするときもflagged utf8でおねがいします。
まぁ、flagなしでpostしても自動的にflagged utf8になるようにはしていますが、未確認です。
後ほど、codereposにもコミットする予定。

……というか、使う人居るの？