File Coverage

blib/lib/Crypt/SysRandom.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	20	20	100.0

package Crypt::SysRandom;
$Crypt::SysRandom::VERSION = '0.007';
use strict;
use warnings;

use Exporter 'import';
our @EXPORT_OK = 'random_bytes';

use Carp ();
use Errno ();

if (eval { require Crypt::SysRandom::XS }) {
	*random_bytes = \&Crypt::SysRandom::XS::random_bytes;
} elsif (eval { require Win32::API }) {
	my $genrand = Win32::API->new('advapi32', 'INT SystemFunction036(PVOID RandomBuffer, ULONG RandomBufferLength)')
		or die "Could not import SystemFunction036: $^E";
	sub random_bytes_win32 {
		my ($count) = @_;
		return '' if $count == 0;
		my $buffer = chr(0) x $count;
		$genrand->Call($buffer, $count) or Carp::croak("Could not read random bytes");
		return $buffer;
	}
	*random_bytes = \&random_bytes_win32;
} elsif (-e '/dev/urandom') {
	open my $fh, '<:raw', '/dev/urandom' or die "Couldn't open /dev/urandom: $!";
	sub random_bytes_urandom {
		my ($count) = @_;
		my ($result, $offset) = ('', 0);
		while ($offset < $count) {
			my $read = sysread $fh, $result, $count - $offset, $offset;
			next if not defined $read and $!{EINTR};
			Carp::croak("Could not read random bytes") if not defined $read or $read == 0;
			$offset += $read;
		}
		return $result;
	}
	*random_bytes = \&random_bytes_urandom;
} else {
	die "No source of randomness found";
}

delete @Crypt::SysRandom::{qw(random_bytes_win32 random_bytes_urandom)};

1;

# ABSTRACT: Perl interface to system randomness

__END__