File Coverage

blib/lib/UUID/Generator/PurePerl/RNG.pm

Criterion	Covered	Total	%
statement	16	17	94.1
branch	4	6	66.6
condition			n/a
subroutine	4	4	100.0
pod	0	2	0.0
total	24	29	82.7

package UUID::Generator::PurePerl::RNG;

use strict;
use warnings;

my $singleton;
sub singleton {
    my $class = shift;

    if (! defined $singleton) {
        $singleton = $class->new(@_);
    }

    return $singleton;
}

sub new {
    shift;  # class

    my @classes = qw(
        UUID::Generator::PurePerl::RNG::MRMT
        UUID::Generator::PurePerl::RNG::MRMTPP
        UUID::Generator::PurePerl::RNG::rand
    );

    foreach my $class (@classes) {
        next if ! eval qq{ require $class };

        next if ! $class->enabled;

        return $class->new();
    }

    return;
}

1;
__END__