File Coverage

blib/lib/WWW/DoingItWrongCom/RandImage.pm

Criterion	Covered	Total	%
statement	27	51	52.9
branch	2	12	16.6
condition			n/a
subroutine	7	10	70.0
pod	3	3	100.0
total	39	76	51.3

package WWW::DoingItWrongCom::RandImage;

use warnings;
use strict;

our $VERSION = '1.01';

use Carp;
use URI;
use LWP::UserAgent;
use HTML::TokeParser::Simple;

sub new {
    my $class = shift;
    croak "Must have event number of arguments to ->new()"
        if @_ & 1;

    my %args = @_;
    $args{ lc $_ } = delete $args{ $_ } for keys %args;

    unless ( exists $args{ua_args}{timeout} ) {
        $args{ua_args}{timeout} = 30;
    }

    my $self = bless \%args, $class;

    $self->{site_uri} = 'http://www.doingitwrong.com/';

    return $self;
}

sub fetch {
    my $self = shift;

    $self->err_msg( undef );

    my $ua = LWP::UserAgent->new( %{ $self->{ua_args} || {} } );

    my $response = $ua->get( $self->{site_uri} );

    if ( $response->is_success ) {
        return $self->_parse_response( $response->content );
    }
    else {
        $self->err_msg( $response->status_line );
        return undef;
    }

    undef;
}

sub _parse_response {
    my $self = shift;
    my $content = shift;

    my $parser = HTML::TokeParser::Simple->new( \$content );
    while ( my $token = $parser->get_token ) {
        if ( $token->is_start_tag('img') ) {
            my $return_uri = URI->new( $self->{site_uri} );
            $return_uri->path( $token->get_attr('src') );

            return $return_uri;
        }
    }
    $self->err_msg('Parser could not find the image');
    return undef;
}

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

1;
__END__