The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Bio::Gonzales::Range::Cluster - cluster sorted ranges iteratively

SYNOPSIS

  my $cr = Bio::Gonzales::Range::Cluster->new;
  my @ranges = ( [ 417, '575', 7991 ], [ 537, '829', 7992 ], [ 839, '901', 7993 ], );

  my @sorted_ranges = sort { $a->[0] <=> $b->[0] or $a->[1] <=> $b->[1] } @ranges;

  for my $r (@sorted_ranges) {
    $cr->add_next_range($r);
  }

  my $result = $cr->finish->clusters;

DESCRIPTION

OPTIONS

METHODS

$cr = $cr->finish()
$cr->overlap_config
$cr->clusters
$clusters_array_ref = $cr->pick_up_clusters()
$cr->add_next_range([ $from, $to, @whatever])

SEE ALSO

AUTHOR

jw bargsten, <jwb at cpan dot org>