NAME

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

VERSION

version 0.002

Data::Random::Weighted

Used to return random results from a weighted set.

Usage

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

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.