NAME
Mobile::Ads::AdultModa - module to serve AdMob ads
Version 0.1.0
SYNOPSIS
use Mobile::Ads::AdultModa;
$ad = new Mobile::Ads::AdultModa
($text,$link) = $ad->get_text_ad({
site => 'AdultModa 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',
});
DESCRIPTION
Mobile::Ads::AdultModa
provides an object oriented interface to serve advertisements from AdultModa in mobile sites. This is just a slightly altered version of the perl code found on AdultModa's site.
new Mobile::Ads::AdultModa
- [$parent]
-
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 littleLWP::UserAgent
creation/destruction time.
Parameters/Properties
- site
-
=> AdultModa site code, delivered by them. Something in the form off ``a1471c9db1c2d27''
- remote
-
=> Remote User Agent ($ENV{'HTTP_USER_AGENT'}). In fact $ENV{'HTTP_USER_AGENT'} will be used if not supplied.
- address
-
=> $ENV{'REMOTE_ADDR'}. All things about HTTP_USER_AGENT also apply here.
- text
-
=> Should we fail to retrieve a real ad, this is the text of the ad displayed instead
- link
-
=> Same with text, but for the ad's link.
Methods
- get_text_ad
-
=> 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.
- get_image_ad
-
=> 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,$image_url) value.
Revision History
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
All ua stuff put in Mobile::Ads
0.0.6
Aliased get_ad to get_(adultmoda)image_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... :)
BUGS
Thoughtlessly crafted to avoid having the same piece of code in several places. Could use lots of enhancements.
DISCLAIMER
This module borrowed its OO interface from Mail::Sender.pm Version : 0.8.00 which is available on CPAN.
AUTHOR
Thanos Chatziathanassiou <tchatzi@arx.net> http://www.arx.net
COPYRIGHT
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:
- Around line 57:
You forgot a '=back' before '=head2'