NAME

WWW::DoingItWrongCom::RandImage - fetch random image from http://www.doingitwrong.com

SYNOPSIS

    use strict;
    use warnings;
    use WWW::DoingItWrongCom::RandImage;

    my $wrong = WWW::DoingItWrongCom::RandImage->new;

    my $wrong_pic = $wrong->fetch
        or die "Failed to get the picture: " . $wrong->err_msg;

    print "You are doing it wrong: $wrong_pic\n";

DESCRIPTION

The module is basic and simple. All it does is access http://www.doingitwrong.com and return a URI to a random image.

CONSTRUCTOR

new

    my $wrong = WWW::DoingItWrongCom::RandImage->new;

    my $wrong = WWW::DoingItWrongCom::RandImage->new(
        ua_args => {
            timeout => 20,
            agent   => 'WrongAgent',
        },
    );

The new() method returns a WWW::DoingItWrongCom::RandImage object. It takes one optional argument:

ua_args

    my $wrong = WWW::DoingItWrongCom::RandImage->new(
        ua_args => {
            timeout => 20,
            agent   => 'WrongAgent',
        },
    );

Optional. The ua_args argument takes a hashref as a value which will be passed to LWP::UserAgent object constructor. See LWP::UseAgent documentation for possible keys/values. By default the default LWP::UserAgent's constructor will be used except for timeout which, unless specified by you, will default to 30 seconds.

METHODS

fetch

    my $wrong_pic = $wrong->fetch
        or die "Failed to get the picture: " . $wrong->err_msg;

The fetch() method instructs WWW::DoingItWrongCom::RandImage to fetch a random image from http://www.doingitwrong.com and returns a URI object (which is overloaded, thus can be treated as a string) which will point to the random image from http://www.doingitwrong.com. If an error occured during the process, fetch() will return undef and the error explanation will be accessible via err_msg() method (see below).

err_msg

    my $wrong_pic = $wrong->fetch
        or die "Failed to get the picture: " . $wrong->err_msg;

If an error occured during the fetching of the URI of the image, the fetch() method will return undef. The explanation of the error will be avalable via err_msg() method.

PREREQUISITES

For healthy operation module requires the following modules/versions:

    'Carp'                     => 1.04,
    'URI'                      => 1.35,
    'LWP::UserAgent'           => 2.036,
    'HTML::TokeParser::Simple' => 3.15,

It might work well with earlier versions of the above modules, but it wasn't tested with those.

AUTHOR

Zoffix Znet, <zoffix at cpan.org>

BUGS

Please report any bugs or feature requests to bug-www-doingitwrongcom-randimage at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=WWW-DoingItWrongCom-RandImage. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc WWW::DoingItWrongCom::RandImage

You can also look for information at:

ACKNOWLEDGEMENTS

COPYRIGHT & LICENSE

Copyright 2008 Zoffix Znet, all rights reserved.

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