File Coverage

blib/lib/Math/RNG/Microsoft.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch			n/a
condition			n/a
subroutine	10	10	100.0
pod	2	2	100.0
total	41	41	100.0

package Math::RNG::Microsoft;
$Math::RNG::Microsoft::VERSION = '0.4.0';
use 5.006;
use strict;
use warnings;


use integer;

use parent 'Math::RNG::Microsoft::Base';

use Class::XSAccessor {
    constructor => 'new',
    accessors   => [qw(seed)],
};

sub rand
{
    my $self = shift;
    $self->seed( ( $self->seed() * 214013 + 2531011 ) & (0x7FFF_FFFF) );
    return scalar( ( $self->seed >> 16 ) & 0x7fff );
}

sub _custom_bound
{
    my ( $self, $bigint, $max ) = @_;

    return ( $bigint % $max );
}

sub _private_max_random
{
    my ( $obj, $max ) = @_;

    my $bigint = scalar( $obj->rand() );
    my $result = scalar( $obj->_custom_bound( $bigint, $max ) );

    return $result;
}

sub max_rand
{
    my ( $obj, $max ) = @_;

    my $result = $obj->_private_max_random( $max, );

    return $result;
}


1;    # End of Math::RNG::Microsoft

__END__