File Coverage

blib/lib/PAGI/Utils/Random.pm

Criterion	Covered	Total	%
statement	15	20	75.0
branch	2	6	33.3
condition	1	3	33.3
subroutine	4	4	100.0
pod	1	1	100.0
total	23	34	67.6

package PAGI::Utils::Random;
$PAGI::Utils::Random::VERSION = '0.002000';
use strict;
use warnings;
use Exporter 'import';

our @EXPORT_OK = qw(secure_random_bytes);

sub secure_random_bytes {
    my ($length) = @_;

    # Try /dev/urandom first (Unix)
    if (open my $fh, '<:raw', '/dev/urandom') {
        my $bytes;
        read($fh, $bytes, $length);
        close $fh;
        return $bytes if defined $bytes && length($bytes) == $length;
    }

    # Fallback: use Crypt::URandom if available
    if (eval { require Crypt::URandom; 1 }) {
        return Crypt::URandom::urandom($length);
    }

    die "No secure random source available (need /dev/urandom or Crypt::URandom)\n";
}

1;

__END__