This is a random number generator that does not need an external extension. It uses pure perl only.
package RANDOM; use 5.006; use strict; use warnings; require Exporter; use AutoLoader qw(AUTOLOAD); our @ISA = qw(Exporter); our @EXPORT = qw( random ); our $VERSION = '0.01'; sub new { return bless {}, shift; } sub random { my $self = shift; return rand(); } 1; __END__ =head1 NAME RANDOM - Perl random number generator =head1 SYNOPSIS use RANDOM; my $randomizer = new RANDOM; my $randomnumber = $randomizer->random(); =head1 DESCRIPTION Applies random number generation in pure perl. No external extension needed. =head1 AUTHOR Chady K., E<lt>chady@perlmonk.orgE<gt> =head1 SEE ALSO L<perl>. =cut
In reply to Random number generator by Chady
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |