File Coverage

blib/lib/Random/Any.pm

Criterion	Covered	Total	%
statement	18	22	81.8
branch	6	14	42.8
condition			n/a
subroutine	3	3	100.0
pod	1	1	100.0
total	28	40	70.0

package Random::Any;

use strict 'subs', 'vars';
#use warnings;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2026-01-20'; # DATE
our $DIST = 'Random-Any'; # DIST
our $VERSION = '0.006'; # VERSION

my $warn;
my $sub;

sub rand(;$) { ## no critic: Subroutines::ProhibitSubroutinePrototypes
    $sub->(@_);
}

sub import {
    my $pkg = shift;

    my $caller = caller();

    while (@_) {
        my $arg = shift;
        if ($arg eq '-warn') {
            $warn = shift;
        } elsif ($arg eq 'rand') {
            *{"$caller\::rand"} = \&rand;
        } else {
            die "'$_' is not exported by " . __PACKAGE__;
        }
    }

    $warn = $ENV{PERL_RANDOM_ANY_WARN} unless defined $warn;
    $warn = 1 unless defined $warn;

    unless ($sub) {
        if (eval { require Data::Entropy::Algorithms; 1 }) {
            $sub = \&Data::Entropy::Algorithms::rand;
        } else {
            warn __PACKAGE__ . ": Data::Entropy::Algorithms is not available: $@, falling back on builtin rand()" if $warn;
            $sub = \&CORE::rand;
        }
    }
}

1;
# ABSTRACT: Try to use Data::Entropy::Algorithms::rand(), fallback on builtin rand()

__END__