File Coverage

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

Criterion	Covered	Total	%
statement	14	32	43.7
branch	1	8	12.5
condition			n/a
subroutine	6	8	75.0
pod	0	2	0.0
total	21	50	42.0

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

use strict;
use warnings;

use base qw( UUID::Generator::PurePerl::RNG::Bridge );

BEGIN {
    eval q{ use Math::Random::MT::Perl };
    if ($@) {
        *enabled = sub { 0 };
    }
    else {
        *enabled = sub { 1 };
    }
}

sub new {
    my $class = shift;
    my $seed  = shift;

    $seed = $class->gen_seed_32bit() if ! defined $seed;

    if ($class->enabled) {
        my $mt = Math::Random::MT::Perl->new($seed);
        my $self = \$mt;
        return bless $self, $class;
    }
    else {
        my $u = undef;
        my $self = \$u;
        return bless $self, $class;
    }
}

sub rand_32bit {
    my $self = shift;
    my $mt = $$self;
    return 0 if ! $mt;

    return int($mt->rand() * 65536.0 * 65536);
}

1;
__END__