File Coverage

blib/lib/Data/Lotter.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	20	20	100.0

package Data::Lotter;

use base qw( Class::Accessor::Fast );
use strict;
use 5.8.1;
our $VERSION = '0.00001_01';
use Data::Dumper;
use constant DEBUG => $ENV{DATA_LOTTER_DEBUG};

__PACKAGE__->mk_accessors qw( lists available );

sub new {
    my $class = shift;
    my %lists = @_;

    my $cumulative = 0;
    foreach my $weight ( values %lists ) {
        $weight = int($weight);
        $cumulative += $weight;
    }

    return $class->SUPER::new( { available => $cumulative, lists => \%lists } );
}

sub pickup {
    my $self   = shift;
    my $num    = shift;
    my $remove = shift || '';
    my @ret;

    my $lists = $self->lists;
  OUTER:
    while ( $num-- ) {
        Dumper $lists; # 本当はいらないけど、これがないとtestでこける?
        my $n = int( rand( $self->available ) ) + 1;
        if (DEBUG) {
            print "NUM:$num\n";
            print "-" x 10, "\n", "Random number: $n\n";
            print Dumper $lists;
        }
        while ( my ( $item, $weight ) = each %$lists ) {
            print "\tn = $n\n" if DEBUG;
            if ( $weight > 0 && $weight >= $n ) {
                push @ret, $item;
                print "\tHIT!\t$item was pushed\n" if DEBUG;
                if ($remove) {
                    delete $lists->{$item};
                    $self->available( $self->available - $weight );
                }
                else {
                    $lists->{$item} = $weight - 1;
                    $self->available( $self->available - 1 );
                }
                next OUTER;
            }
            $n -= $weight;
        }
    }
    print join( "\,", @ret ), "\n" if DEBUG;
    return @ret;
}

sub left_items {
    my $self  = shift;
    my @items = keys %{ $self->lists };
    return @items;
}

sub left_item_waits {
    my $self = shift;
    my $item = shift;
    return $self->lists->{$item};
}

1;

__END__