=encoding utf8 =head1 NAME Net::Trackback::Client - Trackbackクライアント機能を実装するためのクラス =head1 SYNOPSIS 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; =head1 METHODS =item Net::Trackback::Client->new コンストラクタメソッド。Trackbackクライアントインスタンスを返します。 =item $client->discover($url) リソースを取得しTrackback pingデータの送り先を検索するメソッドです。与えられたりソースが取得できなかったり、あるいはTrackbackデータが見つからなかった場合は、Cを返します。HTTPステータスコードおよびメッセージを取得するには、Cメソッドを使ってください。成功時には、オブジェクトの配列リファレンスを返します。 =item $client->send_ping($ping) 渡されたLオブジェクトにしたがってpingを実行し、結果とともにLオブジェクトを返します。 =item $client->timeout([$seconds]) LWPエージェントのタイムアウト時間(秒)へのアクセサです。デフォルトは15秒です。オプションパラメータで値が渡された時は、それがセットされます。 =item $client->proxy($proxy) リクエストに道をつけてやるプロキシサーバのURIです。デフォルトはC -- プロキシなしです。 =item $client->no_proxy([\@noproxy]) リクエスト時にプロキシを経由B<させない>ドメインの配列リファレンスです。オプションパラメータで値が渡された時は、それがセットされます。デフォルトのリストにはIとI<127.0.0.1>が含まれています。 =item $client->charset([$charset]) Pingを送信する際に使われるcharset(文字コード)ヘッダパラメータです。オプションパラメータで値が渡された時は、それがセットされます。デフォルトは'utf-8'です。 =head2 Errors このモジュールはLのサブクラスで、呼び出し元にエラーメッセージを渡すための二つのメソッドを継承しています。 =item Class->error($message) =item $object->error($message) エラーメッセージをクラスClassおよびオブジェクト$objectの双方にセットします。undefを返します。 =item Class->errstr =item $object->errstr クラスClassまたはオブジェクト$objectにセットされたそれぞれの最後のエラーメッセージへのアクセサで、そのエラーメッセージを返します。 =head1 AUTHOR & COPYRIGHT 作者、コピーライトおよびライセンス情報についてはNet::Trackbackのmanpageを参照してください。 =head1 DOCUMENT TRANSLATION Makio Tsukamoto, tsukamoto@gmail.com =cut