SYNOPSIS

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->exists ) {
      print "And you got a photo of this friend\n";
      $contact->photo->to_file( "/tmp/photo.jpg" );
   }
}

METHODS

$contacts->next

Returns the next WWW::Google::Contacts::Contact object

$contacts->search( $args )

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 @heroes = $contacts->search({
   given_name => "Rutger",
   family_name => "Hauer",
});

TODO: Speed up. Make search arguments more flexible ( AND / OR / Regex / ... ). Also, doubt that search on random things like IM addresses work right now..

AUTHOR

Magnus Erixzon <magnus@erixzon.com>

COPYRIGHT AND LICENSE

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.