/usr/share/perl5/Object/InsideOut/Secure.pm is in libobject-insideout-perl 4.02-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 | package Object::InsideOut::Secure; {
use strict;
use warnings;
our $VERSION = '4.02';
$VERSION = eval $VERSION;
use Object::InsideOut 4.02 ':hash_only';
# Holds used IDs
my %used :Field = ( 0 => undef );
# Our PRNG
BEGIN {
$Math::Random::MT::Auto::shared = $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
|