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