#!/usr/bin/perl
###########################################
# multsize - Buckets with different sizes
# 2006, Mike Schilli <cpan@perlmeister.com>
###########################################
use strict;
use warnings;
use Getopt::Std;
use Pod::Usage;
use Algorithm::Bucketizer;
use Data::Dumper;

my @items = (30 .. 39);

my $b = Algorithm::Bucketizer->new(
    bucketsize => 100, 
    algorithm => 'retry'
);

for(qw(100 50 200)) {
    $b->add_bucket(maxsize => $_);
}

for my $item (@items) {
    $b->add_item($item, $item);
}

for my $bucket ($b->buckets()) {
    for my $item ($bucket->items()) {
        print "Bucket: ", $bucket->serial(), ": Item $item\n";
    }
}

__END__

=head1 NAME

    multsize - blah blah blah

=head1 SYNOPSIS

    multsize -xyz

=head1 OPTIONS

=over 8

=item B<-x>

Prints this manual page in text format.

=back

=head1 DESCRIPTION

multsize blah blah blah.

=head1 EXAMPLES

  $ multsize -x foo bar

=head1 LEGALESE

Copyright 2006 by Mike Schilli, all rights reserved.
This program is free software, you can redistribute it and/or
modify it under the same terms as Perl itself.

=head1 AUTHOR

2006, Mike Schilli <cpan@perlmeister.com>