/usr/share/perl5/Crypt/Random/Source.pm is in libcrypt-random-source-perl 0.07-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 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 | package Crypt::Random::Source;
BEGIN {
$Crypt::Random::Source::AUTHORITY = 'cpan:NUFFIN';
}
BEGIN {
$Crypt::Random::Source::VERSION = '0.07';
}
# ABSTRACT: Get weak or strong random data from pluggable sources
use strict;
use 5.008;
use warnings;
use Sub::Exporter -setup => {
exports => [qw(
get get_weak get_strong
factory
)],
groups => { default => [qw(get get_weak get_strong)] },
};
use Crypt::Random::Source::Factory;
our ( $factory, $weak, $strong, $any );
# silence some stupid destructor warnings
END { undef $weak; undef $strong; undef $any; undef $factory }
sub factory () { $factory ||= Crypt::Random::Source::Factory->new }
sub _weak () { $weak ||= factory->get_weak }
sub _strong () { $strong ||= factory->get_strong }
sub _any () { $any ||= factory->get }
sub get ($;@) { _any->get(@_) }
sub get_weak ($;@) { _weak->get(@_) }
sub get_strong ($;@) { _strong->get(@_) }
# silence some stupid destructor warnings
END { undef $weak; undef $strong; undef $any; undef $factory }
1;
# ex: set sw=4 et:
__END__
=pod
=encoding utf-8
=head1 NAME
Crypt::Random::Source - Get weak or strong random data from pluggable sources
=head1 SYNOPSIS
use Crypt::Random::Source qw(get_strong);
# get 10 cryptographically strong random bytes from an available source
my $bytes = get_strong(10);
=head1 DESCRIPTION
This module provides implementations for a number of byte oriented sources of
random data.
See L<Crypt::Random::Source::Factory> for a more powerful way to locate
sources, and the various sources for specific implementations.
=head1 EXPORTS
=over 4
=item get
=item get_weak
=item get_strong
These functions delegate to a source chosen by an instance of
L<Crypt::Random::Source::Factory>, calling get
=back
=head1 SEE ALSO
L<Crypt::Random>, L<Crypt::Util>
=head1 AUTHOR
Yuval Kogman <nothingmuch@woobling.org>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2011 by Yuval Kogman.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
|