WWW::Google::Contacts::ContactList
version 0.12
use WWW::Google::Contacts; my $google = WWW::Google::Contacts->new( username => "your.username", password => "your.password" ); my $contacts = $google->contacts; while ( my $cont = $contacts->next ) { print "You got a friend called " . $cont->full_name . "\n"; if ( $cont->photo->exist ) { print "And you got a photo of this friend\n"; $contact->photo->to_file( "/tmp/photo.jpg" ); } }
Returns the next WWW::Google::Contacts::Contact object
WARNING This is quite slow at the moment, at least if you've got a lot of contacts.
Given search criteria, will return all your contacts that matches critera.
my @bastards = $contacts->search({ given_name => "George", family_name => "Bush", });
TODO: Speed up. Make search arguments more flexible ( AND / OR / Regex / ... ). Also, doubt that search on random things like IM addresses work right now..
Magnus Erixzon <magnus@erixzon.com>
This software is copyright (c) 2010 by Magnus Erixzon / Fayland Lam.
This is free software; you can redistribute it and/or modify it under the same terms as perl itself.
Fayland Lam <fayland@gmail.com>
This software is copyright (c) 2010 by Fayland Lam.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.
To install WWW::Google::Contacts, copy and paste the appropriate command in to your terminal.
cpanm
cpanm WWW::Google::Contacts
CPAN shell
perl -MCPAN -e shell install WWW::Google::Contacts
For more information on module installation, please visit the detailed CPAN module installation guide.