NAME

Data::Random::Weighted - get weighted random data

VERSION

version 1.000

Data::Random::Weighted

Used to return random results from a weighted set.

Usage

my $rand = Data::Random::Weighter->new({ 'Result' => 5, 42 => 1, });

print $rand->roll;

AUTHOR

Russel Fisher <geistberg@gmail.com>

COPYRIGHT AND LICENSE

This software is copyright (c) 2014 by Russel Fisher.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.