Yet Another CPAN Grep

WWW-Mechanize-AutoPager ( M/MI/MIYAGAWA/WWW-Mechanize-AutoPager-0.02.tar.gz, MIYAGAWA, 2008; MetaCPAN )

WWW-Mechanize-AutoPager/lib/WWW/Mechanize/AutoPager.pm ( view source; MetaCPAN )

;

use HTML::AutoPagerize;
use Scalar::Util qw( weaken );
use WWW::Mechanize::DecodedContent;
use JSON;

sub WWW::Mechanize::autopager {
    my $mech = shift;
    $mech->{autopager} ||= WWW::Mechanize

o {
    my $self = shift;
    my $url  = shift || "http://wedata.net/databases/AutoPagerize/items.json";

    my $res = $self->{mech}->get($url);

    if (my $content = $self->{mech}->content) {

->{autopager}->add_site(%$site);
            }
        } else {
            for my $row ( @{ from_json( $content ) } ) {
                $self->{autopager}->add_site(%{ $row->{data} });
            }