/ 
Net-Yadis-Discovery-0.02
River stage one • 1 direct dependent • 1 total dependent
/ Net::Yadis::Discovery

NAME

Net::Yadis::Discovery - Perl extension for discovering Yadis document from Yadis URL

SYNOPSIS

use Net::Yadis::Discovery;

my $disc = Net::Yadis::Discovery->new(
                                       ua => $ua,       # LWP::UserAgent object
                                       cache => $cache  # Cache object
                                   );

my $xrd = $disc->discover("http://id.example.com/") or Carp::croak($disc->err);

print $disc->identity_url;       # Yadis URL (Final URL if redirected )
print $disc->xrd_url;            # Yadis Resourse Descriptor URL

foreach my $srv (@$xrd) {        # Loop for Each Service in Yadis Resourse Descriptor
  print $srv->priority;          # Service priority (sorted)
  print $srv->Type;              # Identifier of some version of some service (scalar, array or array ref)
  print $srv->URI;               # URI that resolves to a resource providing the service (scalar, array or array ref)
  print $srv->extra_field("Delegate","http://openid.net/xmlns/1.0");
                                 # Extra field of some service
}

DESCRIPTION

This is the Perl API for Yadis, to find Yadis Resourse Descriptor from Yadis URL, and make Service objects from Resourse Descriptor.

Yadis is a protocol to enable a Relying Party to obtain a Yadis Resource Descriptor that describes the services available using a Yadis ID.

More information is available at:

http://yadis.org/

This module version 0.01 is based on Yadis Specification 0.92.

CONSTRUCTOR

new

my $disc = Net::Yadis::Discovery->new([ %opts ]);

You can set the ua and cache in the constructor. See the corresponding method descriptions below.

METHODS

$disc->ua($user_agent)
$disc->ua

Getter/setter for the LWP::UserAgent (or subclass) instance which will be used when web donwloads are needed. It's highly recommended that you use LWPx::ParanoidAgent, or at least read its documentation so you're aware of why you should care.

$disc->cache($cache)
$disc->cache

Getter/setter for the optional (but recommended!) cache instance you want to use for storing fetched parts of pages.

The $cache object can be anything that has a ->get($key) and ->set($key,$value) methods. See URI::Fetch for more information. This cache object is just passed to URI::Fetch directly.

$disc->discover($url)

Given a user-entered $url (which could be missing http://, or have extra whitespace, etc), returns either array/array ref of Net::Yadis::Object objects, or undef on failure.

If this method returns undef, you can rely on the following errors codes (from $csr->errcode) to decide what to present to the user:

xrd_parse_error
xrd_format_error
too_many_hops
no_yadis_document
url_fetch_err
empty_url
url_gone
$disc->xrd_objects

Returns array/array ref of Net::Yadis::Object objects. It is same what could be got by discover method.

$disc->identity_url

Returns Yadis URL. If not redirected, it is same with the argument of parse_uri method.

$disc->xrd_url

Returns Yadis Resource Descriptor URL.

$disc->err

Returns the last error, in form "errcode: errtext"

$disc->errcode

Returns the last error code.

$disc->errtext

Returns the last error text.

COPYRIGHT

This module is Copyright (c) 2006 OHTSUKA Ko-hei. All rights reserved.

You may distribute under the terms of either the GNU General Public License or the Artistic License, as specified in the Perl README file. If you need more liberal licensing terms, please contact the maintainer.

WARRANTY

This is free software. IT COMES WITHOUT WARRANTY OF ANY KIND.

SEE ALSO

Yadis website: http://yadis.org/

Net::Yadis::Object -- part of this module

AUTHORS

OHTSUKA Ko-hei <nene@kokogiko.net>