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.