File Coverage

blib/lib/Test/RandomCheck/Types/AllInteger.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	2	2	100.0
condition			n/a
subroutine	8	8	100.0
pod	0	2	0.0
total	33	35	94.2

package Test::RandomCheck::Types::AllInteger;
use strict;
use warnings;
use parent "Test::RandomCheck::Types";
use Config ();
use Test::RandomCheck::ProbMonad;

sub arbitrary {
    gen {
        my ($rand, $size) = @_;
        return 0 if $size <= 0;

        my $bits = int (($Config::Config{ivsize} * 8 - 1) * $size / 100);
        my $n = 1 << $bits;
        $rand->next_int(- $n, $n - 1);
    };
}

sub memoize_key {
    my ($self, $n) = @_;
    $n;
}

1;