Data-Bucketeer

 view release on metacpan or  search on metacpan

lib/Data/Bucketeer.pm  view on Meta::CPAN

  my @non_num = grep { ! Scalar::Util::looks_like_number($_) or /NaN/i }
                keys %$buckets;

  croak "non-numeric bucket boundaries: @non_num" if @non_num;

  my $guts = bless {
    buckets => $buckets,
    picker  => $class->__picker_for($type),
  };

  return bless $guts => $class;
}

my %operator = (
  '>' => sub {
    my ($self, $this) = @_;
    first { $this > $_ } sort { $b <=> $a } keys %{ $self->{buckets} };
  },
  '>=' => sub {
    my ($self, $this) = @_;
    first { $this >= $_ } sort { $b <=> $a } keys %{ $self->{buckets} };

 view all matches for this distribution
 view release on metacpan -  search on metacpan

( run in 0.731 second using v1.00-cache-2.02-grep-82fe00e-cpan-503542c4f10 )