SYNOPSIS

## Using WWW::Finger

use WWW::Finger;

my $finger = WWW::Finger->new("[email protected]");

if ($finger)
{
if ($finger->isa('WWW::Finger::Fingerpoint'))
{
print "WWW::Finger used WWW::Fingerpoint\n";
}
print $finger->name . "\n"; # print person's name.
}
## Using WWW::Finger::Fingerpoint directly

use RDF::Query::Client;
use WWW::Finger::Fingerpoint;

my $fingerpoint = WWW::Finger::Fingerpoint->new("[email protected]");

if ($fingerpoint->webid)
{
my $sparql = sprintf(
"SELECT * WHERE {<%s> <http://xmlns.com/foaf/0.1/homepage> ?page.}",
$fingerpoint->webid);
my $query = RDF::Query::Client->new($sparql);
my $results = $query->execute($fingerpoint->endpoint);
while (my $row = $results->next)
{
print "Found page: " . $row->{'page'}->uri . "\n";
}
}

DESCRIPTION

As well as the standard WWW::Finger methods, WWW::Finger::Fingerpoint provides this additional method:

"get($p1, $p2, ...)"

$p1, $p2 and are RDF predicate URIs. Returns a list of values which are non-bnode objects of triples where the predicate URI is one of the parameters and the subject URI is the person/agent fingered.

  # Returns phone numbers...
  $finger->get('http://xmlns.com/foaf/0.1/phone',
               'http://rdf.data-vocabulary.org/#tel');

AUTHOR

Toby Inkster, <[email protected]>

COPYRIGHT AND LICENCE

Copyright (C) 2009-2012 by Toby Inkster

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

DISCLAIMER OF WARRANTIES

THIS PACKAGE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.