File Coverage

blib/lib/WWW/Alexa/TrafficRank.pm

Criterion	Covered	Total	%
statement	25	41	60.9
branch	5	20	25.0
condition	1	2	50.0
subroutine	6	7	85.7
pod	3	3	100.0
total	40	73	54.7

package WWW::Alexa::TrafficRank;

use strict;
use warnings;
use vars qw($VERSION);
use LWP::UserAgent;

$VERSION = '1.9';

sub new
{
    my $class = shift;
    my %par = @_;
    my $self;

    $self->{ua} = LWP::UserAgent->new(agent => $par{agent} || 'Opera 10.0') or return;
    $self->{ua}->proxy('http', $par{proxy}) if $par{proxy};
    $self->{ua}->timeout($par{timeout})     if $par{timeout};

    bless ($self, $class);
}

sub get
{
    my ($self, $domain) = @_;

    return unless defined $domain;

    my $res = $self->{ua}->get("http://xml.alexa.com/data?cli=10&dat=nsa&url=$domain");
    return $res->status_line if !$res->is_success;

    my ($rank) = $res->content =~ /

    return $rank;
}

sub get_country_rank
{
    my $self = shift;
    my $par  = { @_ };

    return unless defined $par->{Domain};
    return unless defined $par->{Country};

    my $res = $self->{ua}->get("http://www.alexa.com/siteinfo/$par->{Domain}");
    return $res->status_line if !$res->is_success;

    my $cont = $res->content;

    return 0 unless $cont =~ /(.+?)

    my $listdata = $1;

    while ($listdata =~ /(.+?)<\/div>/igs) {
        my $item = $1; $item =~ s/,//g;

        if ($item =~ /$par->{Country}/gs) {
            $item =~ /(\d+)/i;

            return $1;
        }
    }

    return 0;
}

1;

__END__