TwitterとWassrのタイムラインを合成するだけの簡単なモジュールを作ってみた

Perl Twitter Wassr

初めてPerlモジュールというものを作ってみました。


名前は「Net::Twissr」。
下記リンクにソースなどを置いてあります。CodeReposに初コミット！！。
/lang/perl/Net-Twissr – CodeRepos::Share – Trac


Sabotterっぽく、TwitterとWassrのタイムラインを合わせて出力したり、両方に同時にポストしたりするためのモジュールです。
中身はメンバ変数としてNet::TwitterとNet::Wassrのインスタンスを持ってそれぞれ処理してるだけです。
いまのところはfriends_timeline、repliesの取得・合成、双方へのupdateだけの機能です。
インスタンス生成時に引数を指定しない場合、Config::Pitでそれぞれのアカウント情報を取り出して使うようにしています。*1
これにより、

$ perl -MNet::Twissr -C2 -le 'print $_->{user_id}.":".$_->{text} for @{Net::Twissr->new->friends_timeline}'

という簡潔なワンライナーで両方のタイムラインをサクッと表示することができるようになります。*2
ポストする場合は

$ perl -MNet::Twissr -e 'Net::Twissr->new->update("ほげ")'

で、自動的に両方にポストされる。はず。


とりあえず自分の環境では（Mac OS X 10.5.6 Config::Pit, Net::Twitter, Net::Wassrなどインストール済み）すんなり動いているんですが、他の環境ではどうなるんでしょう…？？


初めて作ったモジュールなので作法とか何とか、色々間違っているかもしれません。
皆様からのツッコミやご指摘をいただければ、と思います。

TODO

  • ちょっと頑張ればNet::Twitter, Net::Wassrに依存しないようにすることもできるかも？
  • Config::Pitをnewのデフォルトで使うのはアリなのか？再考してみる
  • favoriteなど、他のメソッドも実装する

*1:こういう使い方してもいいものなのかな…？

*2:モジュールをインストールせずに使う場合にはもちろん別途パスを通す必要がありますが。