Data::Lotter - Data lottery module by its own weight
use Data::Lotter;
# prepare a HASH data
my %candidates = (
red => 10,
green => 10,
blue => 10,
yellow => 10,
white => 10,
);
my $lotter = Data::Lotter->new(%candidates);
# normal pickup
my $ret = $lotter->pickup(3);
# ex. ( red, green, yellow ) = @ret
# removal pickup ( => %candidates will be left 4 items )
my @ret = $lotter->pickup(1, "REMOVE");
Data::Lotter is data lottery module. It provides both pattern such as the lottery and the election.
Takeshi Miki <miki@cpan.org>
Original idea was spawned by KANEGON
Special thanks to Daisuke Maki
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
