I was thinking of reviewing it, but I was afraid Attempt was more useful than I thought. I want something similar for:
# Create a user agent object
use LWP::UserAgent;
$ua = LWP::UserAgent->new;
# Create a request
my $req = HTTP::Request->new(GET => "$VarHere[0]");
# Pass request to user agent. Get a response back.
my $res = $ua->request($req);
# Check outcome of response
if ($res->is_success)
{
$_ = $res->content;
}
else
{
whatever
}
And I figured a simple while and sleep could do the same thing with the same amount of code and eliminate all the code from the module. I see no point to the module at all, but I still have a feeling I'm missing something, so I won't be reviewing it. Yet.
(I'd need a counter too. Big deal)
|