Crypt::Random::Source - Get weak or strong random data from pluggable sources

Crypt-Random-Source documentation Contained in the Crypt-Random-Source distribution.

Index

Code Index:

NAME

Top

Crypt::Random::Source - Get weak or strong random data from pluggable sources

SYNOPSIS

Top

    use Crypt::Random::Source qw(get_strong);

    # get 10 cryptographically strong random bytes from an available source
    my $bytes = get_strong(10);

DESCRIPTION

Top

This module provides implementations for a number of byte oriented sources of random data.

See Crypt::Random::Source::Factory for a more powerful way to locate sources, and the various sources for specific implementations.

EXPORTS

Top

get
get_weak
get_strong

These functions delegate to a source chosen by an instance of Crypt::Random::Source::Factory, calling get

SEE ALSO

Top

Crypt::Random, Crypt::Util

AUTHOR

Top

  Yuval Kogman <nothingmuch@woobling.org>

COPYRIGHT AND LICENSE

Top

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.

Crypt-Random-Source documentation Contained in the Crypt-Random-Source distribution. 
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__