The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

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

VERSION

version 0.001

Data::Random::Weighted

Used to return random results from a weighted set.

Usage

my $rand = randomizer({ 5 => 'Result', 1 => 42, });

print &$rand;

Signature

            .’│_.-
          .’  ’  /_
       .-"    -.   ’>
    .- -. -.    ’. /    /│_
   .-.--.-.       ’ >  /  /
  (o( o( o )       \_."  <
   ’-’-’’-’            ) <
 (       _.-’-.   ._\.  _\
  ’----"/--.__.-) _-  \│
 AoS    "V""    "V"

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.