Yet Another CPAN Grep

WebService-Amazon-DynamoDB-Server ( T/TE/TEAM/WebService-Amazon-DynamoDB-Server-0.001.tar.gz, TEAM, 2015; MetaCPAN )

WebService-Amazon-DynamoDB-Server/scripts/latest-errors.pl ( view source; MetaCPAN )

 strict;
use warnings;

use IO::Async;
use Net::Async::HTTP;
use HTML::TreeBuilder qw(-weak);
use JSON::MaybeXS;

my $loop = IO::Async::Loop->new;
$loop->add(
	my $ua = Net::Async::HTTP->new(
		fail_o

> 'tbody'), $ddb;

	binmode STDOUT, ':encoding(UTF-8)';
	my $json = JSON::MaybeXS->new(
		pretty    => 1,
		canonical => 1,
	);
	print $json->encode({
		errors => [
			map {;
				my @cols = map $_->as

],
					exception => $cols[1],
					message   => $cols[2],
					cause     => $cols[3],
					retry     => $cols[4] eq 'Y' ? JSON->true : JSON->false,
				}
			} @rows
		]
	});
	Future->wrap;
})->get;

WebService-Amazon-DynamoDB-Server ( T/TE/TEAM/WebService-Amazon-DynamoDB-Server-0.001.tar.gz, TEAM, 2015; MetaCPAN )

WebService-Amazon-DynamoDB-Server/scripts/latest-regions.pl ( view source; MetaCPAN )

 strict;
use warnings;

use IO::Async;
use Net::Async::HTTP;
use HTML::TreeBuilder qw(-weak);
use JSON::MaybeXS;

my $loop = IO::Async::Loop->new;
$loop->add(
	my $ua = Net::Async::HTTP->new(
		fail_o

> 'tbody'), $ddb;

	binmode STDOUT, ':encoding(UTF-8)';
	my $json = JSON::MaybeXS->new(
		pretty    => 1,
		canonical => 1,
	);
	print $json->encode({
		regions => [
			map {;
				my @cols = map $_->a