The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

HTML::Adsense - Create adsense widgets easily

SYNOPSIS

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();

METHODS

new

Creates the HTML::Adsense object.

render

Returns a the adsense code.

set_defaults

Sets several defaults, used in object creation.

set_format

Sets the height, width, type and format variables based on a format name and a list of preset values.

ACCESSOR METHODS

client

The client ID.

width

The ad width.

height

The ad height.

format

The ad format.

type

The ad type.

channel

The ad channel.

border

The ad border color.

bg

The ad background color.

The ad link color.

text

The ad text color.

url

The ad url color.

SUPPORTED AD FORMATS

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.

text 468x60
text 728x90

AUTHOR

Nick Gerakines, <nick at gerakines.net>

CAVEATS

[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.

BUGS

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.

SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc HTML::Adsense

You can also look for information at:

COPYRIGHT & LICENSE

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.