# Scrappy - Simple Stupid Spider base on Web::Scraper inspired by Dancer

#!/usr/bin/perl

use Scrappy qw/:syntax/;

init;
user_agent random_ua;
session _file => './session.yml';

get 'http://search.cpan.org/recent';

if (loaded) {
    var date    => grab '.datecell b';
    var modules => grab '#cpansearch li a', { name => 'TEXT', link => '@href' };
}

print var->{date}, "\n" ;
print $_->{name} , "\n" for list var->{modules};