view release on metacpan or  search on metacpan

t/oddmuse-wiki.pl  view on Meta::CPAN

1015
1016
1017
1018
1019
1020
1021
1022
1023
1024
1025
1026
1027
1028
1029
1030
1031
1032
1033
1034
1035
if (GetParam('cache', $UseCache) > 0) {
  foreach my $uri (keys %todo) { # read cached rss files if possible
    if ($Now - Modified($todo{$uri}) < $RssCacheHours * 3600) {
      $data{$uri} = ReadFile($todo{$uri});
      delete($todo{$uri});  # no need to fetch them below
    }
  }
}
my @need_cache = keys %todo;
if (keys %todo > 1) {   # try parallel access if available
  eval { # see code example in LWP::Parallel, not LWP::Parallel::UserAgent (no callbacks here)
    require LWP::Parallel::UserAgent;
    my $pua = LWP::Parallel::UserAgent->new();
    foreach my $uri (keys %todo) {
      if (my $res = $pua->register(HTTP::Request->new('GET', $uri))) {
        $str .= $res->error_as_HTML;
      }
    }
    %todo = (); # because the uris in the response may have changed due to redirects
    my $entries = $pua->wait();
    foreach (keys %$entries) {