view release on metacpan or  search on metacpan

lib/Crypt/HSXKPasswd/RNG/RandomDotOrg.pm  view on Meta::CPAN

    $ua->timeout($self->{timeout});
    $ua->agent($_CLASS.' (on behalf of '.$self->{email}.') ');
    
    # execute the web request
    my $response = $ua->get($url);
    if($response->is_error()){
        _error('failed to retrieve numbers from Random.Org web service with error code '.$response->code().' ('.$response->message.')');
    }
    
    # parse the result
    my $raw_numbers = $response->decoded_content();
    my @ans = ();
    RESPONSE_LINE:
    foreach my $line (split /\n/sx, $raw_numbers){
        # validate the line
        unless($line && $line =~ m/^\d+$/sx){
            _warn("received invalid number from Random.Org ($line)");
            next RESPONSE_LINE;
        }
        
        # convert from integer to decimal between 0 and 1