File Coverage

blib/lib/WWW/Google/Contacts/ContactList.pm

Criterion	Covered	Total	%
statement	9	12	75.0
branch			n/a
condition			n/a
subroutine	3	5	60.0
pod	0	2	0.0
total	12	19	63.1

package WWW::Google::Contacts::ContactList;
{
    $WWW::Google::Contacts::ContactList::VERSION = '0.39';
}

use Moose;
use WWW::Google::Contacts::Contact;

extends 'WWW::Google::Contacts::Base';

with 'WWW::Google::Contacts::Roles::List';

sub baseurl {
    my $self = shift;
    return sprintf( "%s://www.google.com/m8/feeds/contacts/default",
        $self->server->protocol );
}
sub element_class { 'WWW::Google::Contacts::Contact' }

no Moose;
__PACKAGE__->meta->make_immutable;
1;
__END__

=head1 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" );
       }
    }

=head1 METHODS

=head2 $contacts->next

Returns the next L<WWW::Google::Contacts::Contact> object

=head2 $contacts->search( $args )

B<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",
 });

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

=head1 AUTHOR

  Magnus Erixzon <[e-mail]>

=head1 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.

=cut