NAME
    WebService::IPRental - IP Rental API

VERSION
    version 0.02

SYNOPSIS
DESCRIPTION
        use WebService::IPRental;

        my $ipr = WebService::IPRental->new(
            APIkey   => $APIkey,
            APIpass  => $APIpass,
            Username => $Username,
            Password => $Password,
            TTL      => 780, # optional
            LOcation => 0, # optional
        );
    
        my $resp = $ipr->doIpLease();
        if ($resp->{Response} == '202' or $resp->{Response} == '203') {
            print "Res:  " . $ipr->verboseReponseCode($resp->{Response}) . "\n";
            print "IP:   " . $ipr->verboseReponseCode($resp->{IP}) . "\n";
            print "Port: " . $ipr->verboseReponseCode($resp->{Port}) . "\n";
            print "TTL:  " . $ipr->verboseReponseCode($resp->{TTL}) . "\n";
        
            # $ua->proxy(['http', 'https'], 'http://'. $resp->{IP} . ':' . $resp->{Port});
        } else {
            die 'Caught error: ' . $ipr->verboseReponseCode($resp->{Response});
        }

                /**
                 * ========  Response Codes are listed as so ========
                 * 
                 * ---- Positive ------------------------------------
                 *  202 = Good, Fresh IP
                 *  203 = Good, Duplicate IP
                 * 
                 * ---- Negative ------------------------------------
                 *  402 = Internal Error, Unable to serve IP
                 *  403 = Unknown User Authentication
                 *  404 = Unknown API Authentication
                 *  405 = 0 IP leases left in your pool
                 *  406 = Impermissible network type
                 */

AUTHOR
    Fayland Lam <fayland@gmail.com>

COPYRIGHT AND LICENSE
    This software is copyright (c) 2011 by Fayland Lam.

    This is free software; you can redistribute it and/or modify it under
    the same terms as the Perl 5 programming language system itself.