File Coverage

blib/lib/Twitter/Badge.pm

Criterion	Covered	Total	%
statement	12	83	14.4
branch	0	26	0.0
condition	0	3	0.0
subroutine	4	15	26.6
pod	10	11	90.9
total	26	138	18.8

package Twitter::Badge;

use strict;
use warnings;
use Carp;
use LWP::UserAgent;

our $VERSION = '0.05';

sub new {
    my $class = shift;
    my %args = @_;
    $args{screen_name} = undef unless defined $args{screen_name};
    $args{id} = undef unless defined $args{id};
    $args{ua} = 'Mozilla/4.0;Twitter::Badge' unless defined $args{ua};
    $args{name} = undef;
    $args{text} = undef;
    $args{profile_image_url} = undef;
    $args{followers_count} = undef;
    $args{created_at} = undef;
    return bless {%args}, $class;
}

sub get_id_from_screen_name {
    my $self = shift;
    my $screen_name = shift;
    $self->{screen_name} = $screen_name;
    my $ua = LWP::UserAgent->new(agent => $self->{ua});
    my $response = $ua->get('http://api.twitter.com/1/statuses/user_timeline.xml?include_entities=true&include_rts=true&screen_name='.$self->{screen_name});
    if ($response->is_success) {
        my $xml = $response->content;
	$xml =~ s!\n!!g;
        if ($xml =~ m!.*?.*?(\d+).*?.*?!) {
            $self->{id} = $1;
        } else {
            undef $self->{id};
        }
    } else {
        undef $self->{id};
    }
    return $self->{id};
}

sub fetch {
    my $self = shift;
    if (!defined($self->{id}) && !defined $self->{screen_name}) {
        return $self;
    }
    # Check for ID or screen_name
    my $id_or_screen_name;
    if (defined($self->{screen_name})) {
	$id_or_screen_name = 'screen_name='.$self->{screen_name};
    } else {
	$id_or_screen_name = 'id='.$self->{id};
    }
    my $ua = LWP::UserAgent->new(agent => $self->{ua});
    my $response = $ua->get('http://api.twitter.com/1/statuses/user_timeline.xml?include_entities=true&include_rts=true&'.$id_or_screen_name);
    if ($response->is_success) {
        my $xml = $response->content;
	$xml =~ s!\n!!g;
	if ($xml =~ m!(.+?)!) {
	    $xml = $1;
	    # Get data
	    ($self->{text}) = ($xml =~ m!(.*)!);
	    if (!defined($self->{id})) {
		$self->{id} = ($xml =~ m!.*?(\d+).*?!);
	    }
	    ($self->{name}) = ($xml =~ m!.*?(.*).*?!);
	    ($self->{screen_name}) = ($xml =~ m!.*?(.*).*?!);
	    ($self->{profile_image_url}) = ($xml =~ m!.*?(.*).*?!);
	    ($self->{followers_count}) = ($xml =~ m!.*?(.*).*?!);
	    ($self->{created_at}) = ($xml =~ m!.*?(.*).*?!);
	}
    } else {
	croak $response->status_line;
    }
    return $self;
}

sub screen_name {
    my $self = shift;
    if (@_) {
        $self->{screen_name} = shift;
        $self->{id} = $self->get_id_from_screen_name($self->{screen_name});
    }
    return $self->{screen_name};
}

sub id {
    my $self = shift;
    if (@_) { $self->{id} = shift; }
    return $self->{id};
}

sub ua {
    my $self = shift;
    if (@_) { $self->{ua} = shift; }
    return $self->{ua};
}

sub name {
    my $self = shift;
    return $self->{name};
}

sub text {
    my $self = shift;
    return $self->{text};
}

sub profile_image_url {
    my $self = shift;
    return $self->{profile_image_url};
}

sub followers_count {
    my $self = shift;
    return $self->{followers_count};
}

sub created_at {
    my $self = shift;
    return $self->{created_at};
}

1;
__END__