File Coverage

blib/lib/WWW/Alexa/TrafficRank.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	5	10	50.0
condition	1	2	50.0
subroutine	6	6	100.0
pod	2	2	100.0
total	39	45	86.6

package WWW::Alexa::TrafficRank;

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

$VERSION = '1.11';

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

    $self->{ua} = LWP::UserAgent->new(agent => $par{agent} || 'Opera 11.1') 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;
}

1;

__END__