File Coverage

blib/lib/Sys/GetRandom.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	4	8	50.0
condition	1	3	33.3
subroutine	7	7	100.0
pod	1	1	100.0
total	37	43	86.0

package Sys::GetRandom;
use strict;
use warnings;

use Exporter qw(import);
use Carp qw(croak);

use XSLoader;
BEGIN {
    our $VERSION = '0.02';
    XSLoader::load __PACKAGE__, $VERSION;
}

our @EXPORT_OK = qw(
    GRND_RANDOM
    GRND_NONBLOCK
    getrandom
    random_bytes
);

sub random_bytes {
    my ($n) = @_;
    $n |= 0;
    $n >= 0 && $n <= 256
        or croak "Argument to random_bytes() must be an integer between 0 and 256, not $n";
    return '' if $n == 0;
    defined(my $r = getrandom(my $buf, $n))
        or die "Internal error: getrandom(\$buf, $n) failed: $!";
    $r == $n
        or die "Internal error: getrandom(\$buf, $n) returned $r";
    $buf
}

1
__END__