GOOGLE-ADWORDS-PERL-CLIENT
view release on metacpan or search on metacpan
adwords.properties
Build.PL
Changes
COPYING
examples/oauth/generate_offline_credentials.pl
examples/v201309/account_management/create_account.pl
examples/v201309/account_management/get_account_alerts.pl
examples/v201309/account_management/get_account_changes.pl
examples/v201309/account_management/get_account_hierarchy.pl
examples/v201309/advanced_operations/add_ad_group_bid_modifier.pl
examples/v201309/advanced_operations/add_click_to_download_ad.pl
examples/v201309/advanced_operations/create_shared_bidding_strategies.pl
examples/v201309/advanced_operations/get_ad_group_bid_modifier.pl
examples/v201309/advanced_operations/upload_offline_conversions.pl
examples/v201309/advanced_operations/use_shared_bidding_strategy.pl
The client library provides full access to all the functionality of the
AdWords API web services plus more. It includes:
- Data classes: The client library provides all the necessary data classes.
For example, it provides the Campaign data class for encapsulating campaign
data. These classes are generated automatically from WSDLs and found under
Google::Ads:AdWords::{API VERSION}.
- Client class: The Google::Ads::AdWords::Client class provides methods for
setting credentials for accessing AdWords accounts as well as for creating
instances of the AdWords Service classes.
- Helpful utilities: The utilities located under "Google::Ads::Common" help
you manage handle API errors, manage images, fetch reports and others.
- Logging class: This class provides simple methods for logging the SOAP XML
messages of all requests and responses.
- Examples: The Perl client library comes with code examples in the
"examples/" directory. We encourage you to use code examples to get started
writing your own application. All the code examples are runnable out of the
box, but you will have to set your credentials in "~/adwords.properties" and
you may be required to insert object IDs in where you see "INSERT_***_HERE".
How do I start?
---------------
1) Make sure you have Perl 5.8 or later installed. More information on Perl can
be found at http://www.perl.org/. If you are installing in Windows read the
important notes in the next section.
4) Install this module, making use of the Build script generated in step 2:
perl Build
(sudo) perl Build install
5) Sign up for a Google Account, if you don't already have one, at
https://www.google.com/accounts/NewAccount
6) Copy the sample 'adwords.properties' file to your home directory, and edit it
to reflect the credentials for your Google Account.
7) Try running the code examples in the 'examples' directory.
8) Read over the documentation in 'docs/' to familiarize yourself with
the various classes and methods in the client library.
Windows Installation
--------------------
Authorization Options
---------------------
Authorization in the client library is handled through different authorization
handlers attached to the Client object. The library supports the following
authorization protocols:
- OAuth 2:
This protocol provides a way to access an AdWords account without needing to
retain the user credentials such as email and password, and it is the
preferred way for you to authorize your API requests. An access token is
required by the library to be able to send authorized requests against
the API. This access token can be generated with the library via two
different OAuth 2 handlers.
The library Client object provides the get_oauth_2_applications_handler
and the get_oauth_2_service_accounts_handler methods that
allows you to get a reference of the OAuth2 authorization handler for
Web/Installed Applications and the handler for Service Accounts,
respectively.
access and refresh tokens.
Also pre-stored access and refresh tokens can be passed to the authorization
handler using the method set_access_token() and set_refresh_token() to
re-used tokens already authorized by the user, it is up to you to code the
mechanism to preserve and restore these tokens.
After setting access and refresh tokens the library will handle the refresh
of access tokens automatically for you.
See the example examples/oauth/generate_offline_credentials.pl for a
comprehensive example on how to use this authorization protocol.
OAuth2 for Service Accounts
The handler for service accounts provides methods such as
set_email_address(), set_pem_file() and set_delegated_email_address()
that can be used to set the service account email address, private key
file and the delegated account email address, respectively. These values
can also be configured using the adwords.properties file.
> openssl pkcs12 -in yourfile.p12 -out yourfile.pem -nodes
- ClientLogin:
** This authorization protocol is consider deprecated given the support of
OAuth2 and should not be used for future development while strongly
consider migrating old code to OAuth2 **
- Email and Password: When the first request is sent an AuthToken is
generated using the ClientLogin API and using the credentials (login and
password) set in the authentication handler.
The email and password can be stored in the adwords.properties file,
passed into the Client object constructor, or set using the set_email()
and set_password() methods of the authorization handler.
AuthTokens are cached and automatically refresh by the library but
you can force its refresh using the refresh_auth_token() method of the
authorization handler.
[AdWords API](http://www.google.com/apis/adwords/) Perl Client Library makes it easier to write Perl clients to
programmatically access [AdWords](https://adwords.google.com/select/Login) accounts.
## Features
- Fully featured object oriented client library (all classes come generated from
- the WSDLs)
- Perl 5.8.0+ and based on SOAP::WSDL module
- Outgoing and incoming SOAP message are monitored and logged on demand
- Support for API calls to production system or sandbox
- OAuth2 Support
- Loading of credentials from local file or source code
- Online
[documentation](http://googleads.github.io/googleads-perl-lib/docs/Google/Ads/AdWords/Client.html)
## How do I use the library?
You can refer to the [README](https://github.com/googleads/googleads-perl-lib/blob/master/README) file to get more details on how to start using the library. We have code examples for most of the common use cases in the [repository](https://github.co...
## How do I Contribute?
See [Becoming a Contributor](https://github.com/googleads/googleads-perl-lib/wiki/Becoming-A-Contributor) for details.
adwords.properties view on Meta::CPAN
#
# Then you need one of the following two options.
#
# Option 1: un-comment the following if you already have OAuth2 authorization
# tokens.
# oAuth2AccessToken=INSERT_OAUTH_TOKEN_HERE
# oAuth2RefreshToken=INSERT_OAUTH_TOKEN_HERE
#
# Option 2: Use the library to trigger the authorization flow and have the
# user authorize access to his account. See the
# examples/oauth/generate_offline_credentials.pl to learn how to use the
# library for requesting user authorization.
#
# Optionally, un-comment the following if you want to change defaults for the
# user interaction flow.
# Default offline
# oAuth2AccessType=[online|offline]
# Default auto
# oAuth2ApprovalPrompt=[force|auto]
# Defaults to urn:ietf:wg:oauth:2.0:oob
# oAuth2RedirectUri=INSERT_REDIRECT_URI_HERE
examples/oauth/generate_offline_credentials.pl view on Meta::CPAN
# You may obtain a copy of the License at
#
# http://www.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License.
#
# This utility script demonstrate how to generate offline credentials for
# OAuth2 Installed Applications. The generated refresh token can then be used
# to configure the client library, refer to the OAuth2 section of the
# adwords.properties file. This example is meant to be run from the command line
# and requires user input.
#
# Author: David Torres <api.davidtorres@gmail.com>
use strict;
use lib "../../../lib";
use Google::Ads::AdWords::Client;
use Cwd qw(abs_path);
# Main subroutine.
sub generate_offline_credentials {
my ($client) = @_;
my $auth_handler = $client->get_oauth_2_handler();
print "Please enter your OAuth 2.0 Client ID and Client Secret.\n" .
"These values can be generated from the Google Developers Console, " .
"https://console.developers.google.com under the Projects tab.\n" .
"Use a Client ID for Installed applications.\n" .
"Enter Client ID: ";
my $client_id = <STDIN>;
examples/oauth/generate_offline_credentials.pl view on Meta::CPAN
my $str = shift;
$str =~ s/^\s*(.*?)\s*$/$1/;
return $str;
}
# Don't run the example if the file is being included.
if (abs_path($0) ne abs_path(__FILE__)) {
return 1;
}
# Get AdWords Client, credentials will be read from ~/adwords.properties.
my $client = Google::Ads::AdWords::Client->new();
# Call the example
generate_offline_credentials($client);
examples/v201309/account_management/create_account.pl view on Meta::CPAN
use Google::Ads::AdWords::v201309::ManagedCustomer;
use Google::Ads::AdWords::v201309::ManagedCustomerOperation;
use Cwd qw(abs_path);
use Data::Uniqid qw(uniqid);
# Example main subroutine.
sub create_account {
my $client = shift;
# Force to use the MCC credentials.
$client->set_client_id(undef);
# Create an account object with a currencyCode and a dateTimeZone
# See https://developers.google.com/adwords/api/docs/appendix/currencycodes
# and https://developers.google.com/adwords/api/docs/appendix/timezones
my $account = Google::Ads::AdWords::v201309::ManagedCustomer->new({
name => "Managed Account #" . uniqid(),
currencyCode => "USD",
dateTimeZone => "America/New_York",
});
examples/v201309/account_management/create_account.pl view on Meta::CPAN
}
# Don't run the example if the file is being included.
if (abs_path($0) ne abs_path(__FILE__)) {
return 1;
}
# Log SOAP XML request, response and API errors.
Google::Ads::AdWords::Logging::enable_all_logging();
# Get AdWords Client, credentials will be read from ~/adwords.properties.
my $client = Google::Ads::AdWords::Client->new({version => "v201309"});
# By default examples are set to die on any server returned fault.
$client->set_die_on_faults(1);
# Call the example
create_account($client);
examples/v201309/account_management/get_account_alerts.pl view on Meta::CPAN
use Google::Ads::AdWords::v201309::Paging;
use Cwd qw(abs_path);
use constant PAGE_SIZE => 500;
# Example main subroutine.
sub get_account_alerts {
my $client = shift;
# Force to use the MCC credentials.
$client->set_client_id(undef);
# Create alert query.
my $alert_query = new Google::Ads::AdWords::v201309::AlertQuery({
clientSpec => "ALL",
filterSpec => "ALL",
types => ["ACCOUNT_BUDGET_BURN_RATE","ACCOUNT_BUDGET_ENDING",
"ACCOUNT_ON_TARGET","CAMPAIGN_ENDED","CAMPAIGN_ENDING",
"CREDIT_CARD_EXPIRING","DECLINED_PAYMENT",
"MANAGER_LINK_PENDING","MISSING_BANK_REFERENCE_NUMBER",
examples/v201309/account_management/get_account_alerts.pl view on Meta::CPAN
}
# Don't run the example if the file is being included.
if (abs_path($0) ne abs_path(__FILE__)) {
return 1;
}
# Log SOAP XML request, response and API errors.
Google::Ads::AdWords::Logging::enable_all_logging();
# Get AdWords Client, credentials will be read from ~/adwords.properties.
my $client = Google::Ads::AdWords::Client->new({version => "v201309"});
# By default examples are set to die on any server returned fault.
$client->set_die_on_faults(1);
# Call the example
get_account_alerts($client);
examples/v201309/account_management/get_account_changes.pl view on Meta::CPAN
}
# Don't run the example if the file is being included.
if (abs_path($0) ne abs_path(__FILE__)) {
return 1;
}
# Log SOAP XML request, response and API errors.
Google::Ads::AdWords::Logging::enable_all_logging();
# Get AdWords Client, credentials will be read from ~/adwords.properties.
my $client = Google::Ads::AdWords::Client->new({version => "v201309"});
# By default examples are set to die on any server returned fault.
$client->set_die_on_faults(1);
# Call the example
get_account_changes($client);
examples/v201309/account_management/get_account_hierarchy.pl view on Meta::CPAN
use Google::Ads::AdWords::v201309::Selector;
use Cwd qw(abs_path);
sub display_customers_tree;
# Example main subroutine.
sub get_account_hierarchy {
my $client = shift;
# Force to use the MCC credentials.
$client->set_client_id(undef);
# Create selector.
my $selector = Google::Ads::AdWords::v201309::Selector->new({
fields => ["Name", "Login", "CustomerId"]
});
# Get account graph.
my $graph = $client->ManagedCustomerService()->get({
serviceSelector => $selector
examples/v201309/account_management/get_account_hierarchy.pl view on Meta::CPAN
}
# Don't run the example if the file is being included.
if (abs_path($0) ne abs_path(__FILE__)) {
return 1;
}
# Log SOAP XML request, response and API errors.
Google::Ads::AdWords::Logging::enable_all_logging();
# Get AdWords Client, credentials will be read from ~/adwords.properties.
my $client = Google::Ads::AdWords::Client->new({version => "v201309"});
# By default examples are set to die on any server returned fault.
$client->set_die_on_faults(1);
# Call the example
get_account_hierarchy($client);
examples/v201309/advanced_operations/add_ad_group_bid_modifier.pl view on Meta::CPAN
}
# Don't run the example if the file is being included.
if (abs_path($0) ne abs_path(__FILE__)) {
return 1;
}
# Log SOAP XML request, response and API errors.
Google::Ads::AdWords::Logging::enable_all_logging();
# Get AdWords Client, credentials will be read from ~/adwords.properties.
my $client = Google::Ads::AdWords::Client->new({version => "v201309"});
# By default examples are set to die on any server returned fault.
$client->set_die_on_faults(1);
# Call the example
add_ad_group_bid_modifier($client, $ad_group_id);
examples/v201309/advanced_operations/add_click_to_download_ad.pl view on Meta::CPAN
}
# Don't run the example if the file is being included.
if (abs_path($0) ne abs_path(__FILE__)) {
return 1;
}
# Log SOAP XML request, response and API errors.
Google::Ads::AdWords::Logging::enable_all_logging();
# Get AdWords Client, credentials will be read from ~/adwords.properties.
my $client = Google::Ads::AdWords::Client->new({version => "v201309"});
# By default examples are set to die on any server returned fault.
$client->set_die_on_faults(1);
# Call the example
add_click_to_download_ad($client, $ad_group_id);
examples/v201309/advanced_operations/create_shared_bidding_strategies.pl view on Meta::CPAN
}
# Don't run the example if the file is being included.
if (abs_path($0) ne abs_path(__FILE__)) {
return 1;
}
# Log SOAP XML request, response and API errors.
Google::Ads::AdWords::Logging::enable_all_logging();
# Get AdWords Client, credentials will be read from ~/adwords.properties.
my $client = Google::Ads::AdWords::Client->new({version => "v201309"});
# By default examples are set to die on any server returned fault.
$client->set_die_on_faults(1);
# Call the example
use_shared_bidding_strategy($client, $budget_id);
examples/v201309/advanced_operations/get_ad_group_bid_modifier.pl view on Meta::CPAN
}
# Don't run the example if the file is being included.
if (abs_path($0) ne abs_path(__FILE__)) {
return 1;
}
# Log SOAP XML request, response and API errors.
Google::Ads::AdWords::Logging::enable_all_logging();
# Get AdWords Client, credentials will be read from ~/adwords.properties.
my $client = Google::Ads::AdWords::Client->new({version => "v201309"});
# By default examples are set to die on any server returned fault.
$client->set_die_on_faults(1);
# Call the example
get_ad_group_bid_modifier($client);
examples/v201309/advanced_operations/upload_offline_conversions.pl view on Meta::CPAN
}
# Don't run the example if the file is being included.
if (abs_path($0) ne abs_path(__FILE__)) {
return 1;
}
# Log SOAP XML request, response and API errors.
Google::Ads::AdWords::Logging::enable_all_logging();
# Get AdWords Client, credentials will be read from ~/adwords.properties.
my $client = Google::Ads::AdWords::Client->new({version => "v201309"});
# By default examples are set to die on any server returned fault.
$client->set_die_on_faults(1);
# Call the example
upload_offline_conversions($client, $conversion_name, $gclid, $conversion_time,
$conversion_value);
examples/v201309/advanced_operations/use_shared_bidding_strategy.pl view on Meta::CPAN
}
# Don't run the example if the file is being included.
if (abs_path($0) ne abs_path(__FILE__)) {
return 1;
}
# Log SOAP XML request, response and API errors.
Google::Ads::AdWords::Logging::enable_all_logging();
# Get AdWords Client, credentials will be read from ~/adwords.properties.
my $client = Google::Ads::AdWords::Client->new({version => "v201309"});
# By default examples are set to die on any server returned fault.
$client->set_die_on_faults(1);
# Call the example
use_shared_bidding_strategy($client, $budget_id);
examples/v201309/basic_operations/add_ad_groups.pl view on Meta::CPAN
}
# Don't run the example if the file is being included.
if (abs_path($0) ne abs_path(__FILE__)) {
return 1;
}
# Log SOAP XML request, response and API errors.
Google::Ads::AdWords::Logging::enable_all_logging();
# Get AdWords Client, credentials will be read from ~/adwords.properties.
my $client = Google::Ads::AdWords::Client->new({version => "v201309"});
# By default examples are set to die on any server returned fault.
$client->set_die_on_faults(1);
# Call the example
add_ad_groups($client, $campaign_id);
examples/v201309/basic_operations/add_campaigns.pl view on Meta::CPAN
}
# Don't run the example if the file is being included.
if (abs_path($0) ne abs_path(__FILE__)) {
return 1;
}
# Log SOAP XML request, response and API errors.
Google::Ads::AdWords::Logging::enable_all_logging();
# Get AdWords Client, credentials will be read from ~/adwords.properties.
my $client = Google::Ads::AdWords::Client->new({version => "v201309"});
# By default examples are set to die on any server returned fault.
$client->set_die_on_faults(1);
# Call the example
add_campaigns($client);
examples/v201309/basic_operations/add_keywords.pl view on Meta::CPAN
}
# Don't run the example if the file is being included.
if (abs_path($0) ne abs_path(__FILE__)) {
return 1;
}
# Log SOAP XML request, response and API errors.
Google::Ads::AdWords::Logging::enable_all_logging();
# Get AdWords Client, credentials will be read from ~/adwords.properties.
my $client = Google::Ads::AdWords::Client->new({version => "v201309"});
# By default examples are set to die on any server returned fault.
$client->set_die_on_faults(1);
# Call the example
add_keywords($client, $ad_group_id);
examples/v201309/basic_operations/add_text_ads.pl view on Meta::CPAN
}
# Don't run the example if the file is being included.
if (abs_path($0) ne abs_path(__FILE__)) {
return 1;
}
# Log SOAP XML request, response and API errors.
Google::Ads::AdWords::Logging::enable_all_logging();
# Get AdWords Client, credentials will be read from ~/adwords.properties.
my $client = Google::Ads::AdWords::Client->new({version => "v201309"});
# By default examples are set to die on any server returned fault.
$client->set_die_on_faults(1);
# Call the example
add_text_ads($client, $ad_group_id);
examples/v201309/basic_operations/delete_ad.pl view on Meta::CPAN
}
# Don't run the example if the file is being included.
if (abs_path($0) ne abs_path(__FILE__)) {
return 1;
}
# Log SOAP XML request, response and API errors.
Google::Ads::AdWords::Logging::enable_all_logging();
# Get AdWords Client, credentials will be read from ~/adwords.properties.
my $client = Google::Ads::AdWords::Client->new({version => "v201309"});
# By default examples are set to die on any server returned fault.
$client->set_die_on_faults(1);
# Call the example
delete_ad($client,$ad_group_id, $ad_id);
examples/v201309/basic_operations/delete_ad_group.pl view on Meta::CPAN
}
# Don't run the example if the file is being included.
if (abs_path($0) ne abs_path(__FILE__)) {
return 1;
}
# Log SOAP XML request, response and API errors.
Google::Ads::AdWords::Logging::enable_all_logging();
# Get AdWords Client, credentials will be read from ~/adwords.properties.
my $client = Google::Ads::AdWords::Client->new({version => "v201309"});
# By default examples are set to die on any server returned fault.
$client->set_die_on_faults(1);
# Call the example
delete_ad_group($client, $ad_group_id);
examples/v201309/basic_operations/delete_campaign.pl view on Meta::CPAN
}
# Don't run the example if the file is being included.
if (abs_path($0) ne abs_path(__FILE__)) {
return 1;
}
# Log SOAP XML request, response and API errors.
Google::Ads::AdWords::Logging::enable_all_logging();
# Get AdWords Client, credentials will be read from ~/adwords.properties.
my $client = Google::Ads::AdWords::Client->new({version => "v201309"});
# By default examples are set to die on any server returned fault.
$client->set_die_on_faults(1);
# Call the example
delete_campaign($client, $campaign_id);
examples/v201309/basic_operations/delete_keyword.pl view on Meta::CPAN
}
# Don't run the example if the file is being included.
if (abs_path($0) ne abs_path(__FILE__)) {
return 1;
}
# Log SOAP XML request, response and API errors.
Google::Ads::AdWords::Logging::enable_all_logging();
# Get AdWords Client, credentials will be read from ~/adwords.properties.
my $client = Google::Ads::AdWords::Client->new({version => "v201309"});
# By default examples are set to die on any server returned fault.
$client->set_die_on_faults(1);
# Call the example
delete_keyword($client, $ad_group_id, $keyword_id);
examples/v201309/basic_operations/get_ad_groups.pl view on Meta::CPAN
}
# Don't run the example if the file is being included.
if (abs_path($0) ne abs_path(__FILE__)) {
return 1;
}
# Log SOAP XML request, response and API errors.
Google::Ads::AdWords::Logging::enable_all_logging();
# Get AdWords Client, credentials will be read from ~/adwords.properties.
my $client = Google::Ads::AdWords::Client->new({version => "v201309"});
# By default examples are set to die on any server returned fault.
$client->set_die_on_faults(1);
# Call the example
get_ad_groups($client, $campaign_id);
examples/v201309/basic_operations/get_campaigns.pl view on Meta::CPAN
}
# Don't run the example if the file is being included.
if (abs_path($0) ne abs_path(__FILE__)) {
return 1;
}
# Log SOAP XML request, response and API errors.
Google::Ads::AdWords::Logging::enable_all_logging();
# Get AdWords Client, credentials will be read from ~/adwords.properties.
my $client = Google::Ads::AdWords::Client->new({version => "v201309"});
# By default examples are set to die on any server returned fault.
$client->set_die_on_faults(1);
# Call the example
get_campaigns($client);
examples/v201309/basic_operations/get_campaigns_with_awql.pl view on Meta::CPAN
}
# Don't run the example if the file is being included.
if (abs_path($0) ne abs_path(__FILE__)) {
return 1;
}
# Log SOAP XML request, response and API errors.
Google::Ads::AdWords::Logging::enable_all_logging();
# Get AdWords Client, credentials will be read from ~/adwords.properties.
my $client = Google::Ads::AdWords::Client->new({version => "v201309"});
# By default examples are set to die on any server returned fault.
$client->set_die_on_faults(1);
# Call the example
get_campaigns_with_awql($client);
examples/v201309/basic_operations/get_keywords.pl view on Meta::CPAN
}
# Don't run the example if the file is being included.
if (abs_path($0) ne abs_path(__FILE__)) {
return 1;
}
# Log SOAP XML request, response and API errors.
Google::Ads::AdWords::Logging::enable_all_logging();
# Get AdWords Client, credentials will be read from ~/adwords.properties.
my $client = Google::Ads::AdWords::Client->new({version => "v201309"});
# By default examples are set to die on any server returned fault.
$client->set_die_on_faults(1);
# Call the example
get_keywords($client, $ad_group_id);
examples/v201309/basic_operations/get_text_ads.pl view on Meta::CPAN
}
# Don't run the example if the file is being included.
if (abs_path($0) ne abs_path(__FILE__)) {
return 1;
}
# Log SOAP XML request, response and API errors.
Google::Ads::AdWords::Logging::enable_all_logging();
# Get AdWords Client, credentials will be read from ~/adwords.properties.
my $client = Google::Ads::AdWords::Client->new({version => "v201309"});
# By default examples are set to die on any server returned fault.
$client->set_die_on_faults(1);
# Call the example
get_text_ads($client, $ad_group_id);
examples/v201309/basic_operations/pause_ad.pl view on Meta::CPAN
}
# Don't run the example if the file is being included.
if (abs_path($0) ne abs_path(__FILE__)) {
return 1;
}
# Log SOAP XML request, response and API errors.
Google::Ads::AdWords::Logging::enable_all_logging();
# Get AdWords Client, credentials will be read from ~/adwords.properties.
my $client = Google::Ads::AdWords::Client->new({version => "v201309"});
# By default examples are set to die on any server returned fault.
$client->set_die_on_faults(1);
# Call the example
pause_ad($client, $ad_group_id, $ad_id);
examples/v201309/basic_operations/update_ad_group.pl view on Meta::CPAN
}
# Don't run the example if the file is being included.
if (abs_path($0) ne abs_path(__FILE__)) {
return 1;
}
# Log SOAP XML request, response and API errors.
Google::Ads::AdWords::Logging::enable_all_logging();
# Get AdWords Client, credentials will be read from ~/adwords.properties.
my $client = Google::Ads::AdWords::Client->new({version => "v201309"});
# By default examples are set to die on any server returned fault.
$client->set_die_on_faults(1);
# Call the example
update_ad_group($client, $ad_group_id);
( run in 0.797 second using v1.01-cache-2.11-cpan-4d50c553e7e )