NAME

WWW::Google::ClientLogin - Yet Another Google ClientLogin Client Library

SYNOPSIS

  use WWW::Google::ClientLogin;

  my $client = WWW::Google::ClientLogin->new(
      email    => 'example@gmail.com',
      password => 'password',
      service  => 'ac2dm',
  );

  my $res = $client->authenticate;
  die $res->status_line if $res->is_error;

  my $auth_token = $res->auth_token;

DESCRIPTION

WWW::Google::ClientLogin is a Google ClientLogin client.

SEE ALSO http://code.google.com/intl/us/apis/accounts/docs/AuthForInstalledApps.html

Why I wrote this module? I know WWW::Google::Auth::ClientLogin module already exists, but I feel the return value is difficult to use. I want a response object.

METHODS

new(%args)

Create a WWW::Google::ClientLogin instance.

  my $client = WWW::Google::ClientLogin->new(
      email        => example@gmail.com,
      password     => 'password',
      service      => 'ac2dm',
  );

Supported options are:

email : Str

Required. User's full email address. It must include the domain (i.e. johndoe@gmail.com).

password : Str

Required. User's password.

service : Str

Required. Each service using the Authorization service is assigned a name value. for example, the name associated with Google Calendar is 'cl'.

type : Str

Optional. Type of account to request authorization. default type is HOSTED_OR_GOOGLE.

source : Str

Optional. Short string identifying your application, for logging purposes.

logintoken : Str

Optional. Token representing the specific CAPTCHA challenge.

logincaptcha : Str

Optional. String entered by the user as an answer to a CAPTCHA challenge.

ua : LWP::UserAgent

Optional.

SEE ALSO http://code.google.com/intl/us/apis/accounts/docs/AuthForInstalledApps.html#Request.

authenticate()

Send authentication request for Google ClientLogin. Returned WWW::Google::ClientLogin::Response object.

  my $res = $client->authenticate;
  die $res->error_code if $res->is_error;
  my $auth_token = $res->auth_token;

AUTHOR

xaicron <xaicron@cpan.org>

COPYRIGHT

Copyright 2011 - xaicron

LICENSE

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

SEE ALSO

WWW::Google::Auth::ClientLogin