NAME¶
WWW::Finger::Fingerpoint - Investigate E-mail Addresses using Fingerpoint
SYNOPSIS¶
## Using WWW::Finger
use WWW::Finger;
my $finger = WWW::Finger->new("joe@example.com");
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("joe@example.com");
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');
SEE ALSO¶
WWW::Finger.
RDF::Query::Client, RDF::Trine.
<
http://buzzword.org.uk/2009/fingerpoint/spec>.
<
http://www.perlrdf.org/>.
AUTHOR¶
Toby Inkster, <tobyink@cpan.org>
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.