
HTML::Adsense - Create adsense widgets easily

This module wraps Google Adsense ad creation in OO perl code.
use HTML::Adsense;
my $myad = HTML::Adsense->new(
'client' => 'pub-4763368282156432',
); # OR
$myad->client('pub-4763368282156432');
print $myadd->render();

Creates the HTML::Adsense object.
Returns a the adsense code.
Sets several defaults, used in object creation.
Sets the height, width, type and format variables based on a format name and a list of preset values.

The client ID.
The ad width.
The ad height.
The ad format.
The ad type.
The ad channel.
The ad border color.
The ad background color.
The ad link color.
The ad text color.
The ad url color.

This module has several height/width/type formats to select from. See the adsense formats page for more information on available adsense formats.
https://www.google.com/adsense/adformats
This doesn't prevent you from using your own formats and colors. See the accessor methods for more information.

Nick Gerakines, <nick at gerakines.net>

[A] There is a default client ID set. You Must either pass the client ID when creating the object or set it via an accessor or you will NOT get paid.
[B] The current list of supported ad preset formats is very limited.

Please report any bugs or feature requests to bug-html-adsense at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=HTML-Adsense. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

You can find documentation for this module with the perldoc command.
perldoc HTML::Adsense
You can also look for information at:

Copyright 2006 Nick Gerakines, all rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.