Very nice, indeed.

Quite minor suggestions: Move the __DATA__ lines into a here-doc (though I mostly dislike here-docs) so I don't have to scroll down to see what the point of that <DATA> line is and so your module doesn't leave a file handle open that it then never uses again. I dislike 'unless' and your use of it did cause me to have to do a double-take when reading the code (which reinforces my dislike for it).

Regarding:

Sample Script:

#!/usr/bin/perl
use strict;
use warnings;
use PDAScraper;

use PDAScraper::YahooTV;
my $YM_Scraper = PDAScraper->new('PDA­Scraper::YahooTV') 
|| die "$!";
$YM_Scraper->scrape(­);

use PDAScraper::Slate;
my $Slate_Scraper = PDAScraper->new('PDA­Scraper::Slate') 
|| die "$!";
$Slate_Scraper->scra­pe();

use PDAScraper::NewScien­tist;
my $NS_Scraper = PDAScraper->new('PDA­Scraper::NewScientis­t') 
|| die "$!";
$NS_Scraper->scrape(­);
[download]

How about make that sample script possible with just:

use PDAScraper qw( YahooTV Slate NewScientist );
[download]

Then one could even just do perl -MPDAScraper=YahooTV,Slate,....

Thanks for sharing this.