1WWW::Google::Contacts::UCsoenrtaCcotnLtirsitb(u3t)ed PerWlWWD:o:cGuomoegnltea:t:iCoonntacts::ContactList(3)
2
3
4
6 use WWW::Google::Contacts;
7
8 my $google = WWW::Google::Contacts->new( username => "your.username", password => "your.password" );
9
10 my $contacts = $google->contacts;
11
12 while ( my $cont = $contacts->next ) {
13 print "You got a friend called " . $cont->full_name . "\n";
14
15 if ( $cont->photo->exists ) {
16 print "And you got a photo of this friend\n";
17 $contact->photo->to_file( "/tmp/photo.jpg" );
18 }
19 }
20
22 $contacts->next
23 Returns the next WWW::Google::Contacts::Contact object
24
25 $contacts->search( $args )
26 WARNING This is quite slow at the moment, at least if you've got a lot
27 of contacts.
28
29 Given search criteria, will return all your contacts that matches
30 critera.
31
32 my @heroes = $contacts->search({
33 given_name => "Rutger",
34 family_name => "Hauer",
35 });
36
37 TODO: Speed up. Make search arguments more flexible ( AND / OR / Regex
38 / ... ). Also, doubt that search on random things like IM addresses
39 work right now..
40
42 Magnus Erixzon <magnus@erixzon.com>
43
45 This software is copyright (c) 2010 by Magnus Erixzon / Fayland Lam.
46
47 This is free software; you can redistribute it and/or modify it under
48 the same terms as perl itself.
49
50
51
52perl v5.34.0 2021-07-W2W3W::Google::Contacts::ContactList(3)