view release on metacpan or  search on metacpan

eg/multsize  view on Meta::CPAN

#!/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 => $_);

eg/sample.pl  view on Meta::CPAN

#!/usr/bin/perl
###########################################
# Mike Schilli, 2002 (m@perlmeister.com)
###########################################
use warnings;
use strict;

use Algorithm::Bucketizer;
use Data::Dumper;

print "$Algorithm::Bucketizer::VERSION\n";

my @items = (
             [2,2],
             [3,3],
             [5,5], [5,5],
             [7,7],
             [8,8],
            );