WWW::Finger::Fingerpoint - Investigate E-mail Addresses using Fingerpoint

       Toby Inkster, <tobyink@cpan.org>

       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.

       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');

       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.

perl v5.32.1                                       2021-09-11                      WWW::Finger::Fingerpoint(3pm)

       WWW::Finger::Fingerpoint - Investigate E-mail Addresses using Fingerpoint

       WWW::Finger.

       RDF::Query::Client, RDF::Trine.

       <http://buzzword.org.uk/2009/fingerpoint/spec>.

       <http://www.perlrdf.org/>.

         ## 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";
           }
         }