Mobile::Ads::AdMob_v2 - module to serve AdMob ads
Version 0.1.0
use Mobile::Ads::AdMob_v2; $ad = new Mobile::Ads::AdMob_v2 ($text,$link,$image) = $ad->get_v2_ad({ site => 'AdMob site code', remote => $ENV{'HTTP_USER_AGENT'}, address => $ENV{'REMOTE_ADDR'}, text => 'default ad text', link => 'default ad link', test => 'set this if this is a test ad', });
Mobile::Ads::AdMob_v2 provides an object oriented interface to serve advertisements from AdMob in mobile sites. This is just a slightly altered version of the perl code found on AdMob's site.
Mobile::Ads::AdMob_v2
To reuse Mobile::Ads in multiple (subsequent) ad requests, you can pass a Mobile::Ads reference here. Instead of creating a new Mobile::Ads object, we will use the one you pass instead. This might save a little LWP::UserAgent creation/destruction time.
Mobile::Ads
LWP::UserAgent
=> AdMob site code, delivered by them. Something in the form off ``0123456789abcde''
=> Remote User Agent ($ENV{'HTTP_USER_AGENT'}). In fact $ENV{'HTTP_USER_AGENT'} will be used if not supplied.
=> $ENV{'REMOTE_ADDR'}. All things about HTTP_USER_AGENT also apply here.
=> Should we fail to retrieve a real ad, this is the text of the ad displayed instead
=> Same with text, but for the ad's link.
=> Does the actual fetching of the ad for the site given. Refer to new for details Returns a list ($text_for_ad,$link_for_ad) value in list context or an ``<a href="$link">$text</a>'' if called in scalar context.
0.0.1 Initial Release 0.0.2 Fixed stupid typo 0.0.3 Didn't preserve default values on failure 0.0.4 $ua timeout set to 20 sec 0.0.5 $ua timeout set to 2 sec Implemented the new version AdMob code (still some funky parts in there, but seems to work) 0.0.6 Aliased get_ad to get_v2_ad 0.0.7 Option to reuse parent Mobile::Ads instead of creating anew 0.0.8/0.0.9 Skipped those to have same verion number in all modules 0.1.0 One could also use a reference to the parent... :)
Thoughtlessly crafted to avoid having the same piece of code in several places. Could use lots of enhancements.
This module borrowed its OO interface from Mail::Sender.pm Version : 0.8.00 which is available on CPAN.
Thanos Chatziathanassiou <tchatzi@arx.net> http://www.arx.net
Copyright (c) 2008 arx.net - Thanos Chatziathanassiou . All rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
1 POD Error
The following errors were encountered while parsing the POD:
You forgot a '=back' before '=head2'
To install Mobile::Ads, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Mobile::Ads
CPAN shell
perl -MCPAN -e shell install Mobile::Ads
For more information on module installation, please visit the detailed CPAN module installation guide.