/ 
FirstGoodURL-1.00
River stage zero No dependents
/ FirstGoodURL

NAME

FirstGoodURL - determines first successful URL in list

SYNOPSIS

use FirstGoodURL;
use strict;

my @URLs = (...);
my $match;

if ($match = FirstGoodURL->in(@URLs)) {
  print "good URL: $match\n";
}
else {
  print "no URL was alive\n";
}

if ($match = FirstGoodURL->with('image/png')->in(@URLs)) {
  print "PNG found at $match\n";
}
else {
  print "no PNG found\n";
}

DESCRIPTION

This module uses the LWP suite to scan through a list of URLs. It returns the first URL that returns a 200 Ok status. In addition, you can specify a Content-type that the URL must return.

Methods

  • FirstGoodURL-in(...)>

    Scans a list of URLs for a 200 response code, and possibly a requisite Content-type (see the with method below)

  • FirstGoodURL-with(...)>

    Sets a Content-type for the next (successful) call to in. You can send a single string, a list of strings, or a compiled regex (using qr//). If a match is returned from the call to in, the Content-type is forgotten; if there is no match found, the Content-type is remembered. This method returns the class name, so that you can daisy-chain calls for readability:

    my $match = FirstGoodURL->with(qr/image/)->in(@URLs);

AUTHOR

Jeff "japhy" Pinyan
CPAN ID: PINYAN
japhy@pobox.com
http://www.pobox.com/~japhy/