Google::Adwords::AccountService 0.6.0

Google::Adwords::AccountService is a Perl module to interact with the Google Adwords AccountService API calls.

SYNOPSIS

use Google::Adwords::AccountService;
use Google::Adwords::AccountInfo;
use Google::Adwords::CoverageType;
use Google::Adwords::EmailPromotionsPreferences;
use Google::Adwords::CreditCard;
use Google::Adwords::Address;

my $service = Google::Adwords::AccountService->new();

# login to the Adwords server
$service->email($email)
->password($password)
->clientEmail($cemail)
->applicationToken($app_token)
->developerToken($dev_token);

# getAccountInfo
my $account = $service->getAccountInfo();
print "currencyCode : " . $account->currencyCode . "n";
print "descriptiveName : " . $account->descriptiveName . "n";

# getClientAccounts
my @emailaccounts = $service->getClientAccounts();
print "getClientAccounts : " . join(|, @emailaccounts) . "n";

# getCreditCard
my $creditcard = $service->getCreditCard();

# setLoginInfo
my $ret_setlogininfo= $service->setLoginInfo(email@example.com, toto);

# setLocalTimezone to brrr ...
my $ret_setlocaltimezone = $service->setLocalTimezone(America/Anchorage);

# setCreditCard
my $cc = Google::Adwords::CreditCard->new
->cardNumber(12345678912346)
->cardType(VISA)
->cardVerificationNumber(123)
->expirationMonth(1)
->expirationYear(2008);

my $addr = Google::Adwords::Address->new
->addressLine1(down the street)
->city(Paris)
->companyName(Up there)
->countryCode(FR)
->emailAddress(me@example.com)
->name(Up there)
->phoneNumber(+33112345678)
->postalCode(75020);

my $ret_setcreditcard = $service->setCreditCard($cc, $addr);

# createAdWordsAccount
my $emailPrefs = Google::Adwords::EmailPromotionsPreferences->new
->marketResearchEnabled(1)
->newsletterEnabled(1)
->promotionsEnabled(0);

my $covType = Google::Adwords::CoverageType->new
->optInContentNetwork(0)
->optInSearchNetwork(1);

my $ret = $service->createAdWordsAccount({
loginEmail => $loginEmail,
password => $password,
languagePreference => $lgPref,
emailPrefs => $emailPrefs,
currencyCode => $curCode,
cardInfo => $creditcard,
contactInfo => $address,
defaultAdsCoverage => $covType,
timeZoneId => $timeZoneId
});

# updateAccountInfo
$account->primaryBusinessCategory(Advertising, Marketing, SEO);
my $ret_updateaccountinfo = $service->updateAccountInfo($account);

This module provides an interface to the Google Adword AccountService API calls.