Timothy Appnel > Net-Trackback-0.99 > Net::Trackback::Client

Download:
Net-Trackback-0.99.tar.gz

Dependencies

Annotate this POD

CPAN RT

New  3
Open  1
View Bugs
Report a bug
Source   Latest Release: Net-Trackback-1.01

NAME ^

Net::Trackback::Client - a class for implementing Trackback client functionality.

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;

METHODS ^

Net::Trackback::Client->new

Constructor method. Returns a Trackback client instance.

$client->discover($url)

A method that fetches the resource and searches for Trackback ping data. If the given resource can not be retreived, a Net::Trackback::Message object is returned with the HTTP error code and message. (A liberty this module takes from the Trackback specification.) Returns a reference to an array of Net::Trackback::Data objects. If the resource is retreived and nothing was found returns undef.

$client->send_ping($ping)

Executes a ping according to the Net::Trackback::Ping object passed in and returns a Net::Trackback::Message object with the results,

$client->timeout([$seconds])

An accessor to the LWP agent timeout in seconds. Default is 15 seconds. If an optional parameter is passed in the value is set.

AUTHOR & COPYRIGHT ^

Please see the Net::Trackback manpage for author, copyright, and license information.