Yet Another CPAN Grep

POE-Component-MetaCPAN-Recent ( B/BI/BINGOS/POE-Component-MetaCPAN-Recent-1.04.tar.gz, BINGOS, 2020; MetaCPAN )

POE-Component-MetaCPAN-Recent/lib/POE/Component/MetaCPAN/Recent.pm ( view source; MetaCPAN )

se POE qw[Component::SmokeBox::Recent::HTTP];
use URI;
use HTTP::Request;
use HTTP::Response;
use JSON::PP;
use Time::Piece;

sub spawn {
  my $package = shift;
  my %opts = @_;
  $opts{lc $_} = delet

_requests}--;
  if ( $http_resp and $http_resp->code() == 200 ) {
    my $recents = eval { decode_json( $http_resp->content() ) };
    SWITCH: {
      last SWITCH unless $recents;
      last SWITCH un