File Coverage

blib/lib/Object/InsideOut/Secure.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch			n/a
condition	1	3	33.3
subroutine	7	7	100.0
pod			n/a
total	31	33	93.9

package Object::InsideOut::Secure; {
    use strict;
    use warnings;
    use Config;

    our $VERSION = '4.05';
    $VERSION = eval $VERSION;

    use Object::InsideOut 4.05 ':hash_only';

    # Holds used IDs
    my %used :Field = ( 0 => undef );

    # Our PRNG
    BEGIN {
        $Math::Random::MT::Auto::shared = ($Config::Config{useithreads} &&
                                           $threads::shared::threads_shared);
    }
    use Math::Random::MT::Auto 5.04 ':!auto';
    my $prng = Math::Random::MT::Auto->new();

    # Assigns random IDs
    sub _id :ID
    {
        my $id;
        while (exists($used{$id = $prng->irand()})) {}
        $used{$id} = undef;
        return $id;
    }
}

1;

# EOF