Net::Trackback::Client - Trackbackクライアント機能を実装するためのクラス
use Net::Trackback::Client; my $client = Net::Trackback::Client->new(); my $url ='http://www.foo.org/foo.html'; my $data = $client->discover($url); if (Net::Trackback->is_message($data)) { print $data->to_xml; } else { require Net::Trackback::Ping; my $p = { ping_url=>'http://www.foo.org/cgi/mt-tb.cgi/40', url=>'http://www.timaoutloud.org/archives/000206.html', title=>'The Next Generation of TrackBack: A Proposal', description=>'I thought it would be helpful to draft some suggestions for consideration for the next generation (NG) of the interface.' }; my $ping = Net::Trackback::Ping->new($p); my $msg = $client->send_ping($ping); print $msg->to_xml;
コンストラクタメソッド。Trackbackクライアントインスタンスを返します。
discover($url)
リソースを取得しTrackback pingデータの送り先を検索するメソッドです。与えられたりソースが取得できなかったり、あるいはTrackbackデータが見つからなかった場合は、undefを返します。HTTPステータスコードおよびメッセージを取得するには、errstrメソッドを使ってください。成功時には、<Net::Trackback::Data>オブジェクトの配列リファレンスを返します。
send_ping($ping)
渡されたNet::Trackback::Messageオブジェクトを返します。
timeout([$seconds])
LWPエージェントのタイムアウト時間(秒)へのアクセサです。デフォルトは15秒です。オプションパラメータで値が渡された時は、それがセットされます。
proxy($proxy)
リクエストに道をつけてやるプロキシサーバのURIです。デフォルトはundef -- プロキシなしです。
no_proxy([\@noproxy])
リクエスト時にプロキシを経由させないドメインの配列リファレンスです。オプションパラメータで値が渡された時は、それがセットされます。デフォルトのリストにはlocalhostと127.0.0.1が含まれています。
charset([$charset])
Pingを送信する際に使われるcharset(文字コード)ヘッダパラメータです。オプションパラメータで値が渡された時は、それがセットされます。デフォルトは'utf-8'です。
このモジュールはClass::ErrorHandlerのサブクラスで、呼び出し元にエラーメッセージを渡すための二つのメソッドを継承しています。
error($message)
error($message)
エラーメッセージをクラスClassおよびオブジェクト$objectの双方にセットします。undefを返します。
クラスClassまたはオブジェクト$objectにセットされたそれぞれの最後のエラーメッセージへのアクセサで、そのエラーメッセージを返します。
作者、コピーライトおよびライセンス情報についてはNet::Trackbackのmanpageを参照してください。
Makio Tsukamoto, tsukamoto@gmail.com