view release on metacpan or  search on metacpan

lib/App/newver/Scanner.pm  view on Meta::CPAN

    my $ua = LWP::UserAgent->new;
    $ua->agent($user_agent);

    my $req = HTTP::Request->new(GET => $page);
    my $res = $ua->request($req);
    if (not $res->is_success) {
        die sprintf "Error fetching %s: %s\n", $page, $res->status_line;
    }

    my $content = $res->decoded_content;

    my $tree = HTML::TreeBuilder->new_from_content($content);
    my @as = $tree->look_down(_tag => "a", sub { defined $_[0]->attr('href') });
    if (!@as) {
        die qq{Found no <a href="..."> elements in $page\n};
    }

    my $greatest;
    for my $ae (@as) {
        my $href = $ae->attr('href');