Yet Another CPAN Grep

Net-Random ( D/DC/DCANTRELL/Net-Random-2.33.tar.gz, DCANTRELL, 2025; MetaCPAN )

Net-Random/lib/Net/Random.pm ( view source; MetaCPAN )

ars qw($VERSION %randomness);

$VERSION = '2.33';

require LWP::UserAgent;
use Sys::Hostname;
use JSON ();

use Data::Dumper;

my $ua = LWP::UserAgent->new(
  agent   => 'perl-Net-Random/'.$VERSION,

/jsonI.php?length=1024&size=1&type=uint8'
    );
    unless($response->is_success) {
      warn "Net::Random: Error talking to qrng.anu.edu.au\n";
      return ();
    }
    my $content = eval { JSON:

:decode_json($response->content()) };
    if($@) {
      warn("Net::Random: qrng.anu.edu.au returned bogus JSON\n");
      return();
    } elsif(!$content->{success}) {
      warn("Net::Random: qrng.a