Thanos Chatziathanassiou > Mobile-Ads-0.0.2 > Mobile::Ads::MoJiva

Download:
Mobile-Ads-0.0.2.tar.gz

Dependencies

Annotate this POD

View/Report Bugs
Module Version: 0.1.0   Source  

NAME ^

Mobile::Ads::MoJiva - module to serve MoJiva ads

Version 0.1.0

SYNOPSIS ^

 use Mobile::Ads::MoJiva;
 $ad = new Mobile::Ads::MoJiva
 ($text,$link,$image) = $ad->get_mojiva_ad({
                                site    => 'MoJiva 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',
                                zone    => 'ad zone',
                                });

DESCRIPTION ^

Mobile::Ads::MoJiva 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.

new Mobile::Ads::MoJiva ^

[$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 little LWP::UserAgent creation/destruction time.

Parameters/Properties

site

=> MoJiva site code, delivered by them. Something in the form off ``123''

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_mojiva_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 in list context or an ``<a href="$link">$text</a>'' if called in scalar context.

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 
        $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... :)

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.

syntax highlighting: