How do you plan to test things like:
my $url_base = "http://search.cpan.org/"; ;
for my $rest (qw(modlist/Graphics modlist/Database_Interfaces))
{
do_anything_with($ur_base . $rest);
}
Nadim.
On Sunday 03 June 2007 15:10, Ian Malpass wrote:
> ReneeB wrote:
> > Let this the POD from the (nonexistant) module Anything::URI:
> >
> > =head1 NAME
> >
> > Anything::URI
> >
> > =SYNOPSIS
> >
> > use Anything::URI;
> > my $url = 'http://www.example.tld';
> > do_anything_with($url);
> >
> > ...
> >
> > In that case "http://www.example.tld"; shouldn't be extracted and tested
> > as this is just an example...
> >
> > Links to other resources should be tested, but not such examples.
>
> My plan, at least for now, is to provide the equivalent to Pod::Spell's
> "stopwords". "Stopurls" as it were. So you can pass in a list of URLs
> and/or patterns to ignore (e.g. "/example.com/").
>
> Also planning to extract URLs from all the POD - text blocks, verbatim,
> etc. - with an option to restrict it to L interior sequences. Could also
> opt to ignore verbatim optionally too.
>
> Ian
>
> P.S. I'm more than happy to be sent examples and/or test scripts, or
> pointers to extant modules that might have interesting parsing results,
> etc.
