view release on metacpan or  search on metacpan

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

    my $page = $params{ page }
        // die "required parameter 'page' missing";

    $match =~ s/\@VERSION\@/$MAYBE_VERSION_RX/g
        or die "Match regex missing '\@VERSION\@'\n";
    $match = qr/$match/;

    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) {