#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

use lib qw(../lib);

use Data::Range::Compare::Stream;
use Data::Range::Compare::Stream::Iterator::Array;
use Data::Range::Compare::Stream::Iterator::Consolidate::AdjacentAsc;


my $iterator=new Data::Range::Compare::Stream::Iterator::Array;

$iterator->create_range(0,0);
$iterator->create_range(1,2);
$iterator->create_range(4,6);
$iterator->create_range(7,9);

$iterator->prepare_for_consolidate_asc;
my $consolidator=Data::Range::Compare::Stream::Iterator::Consolidate::AdjacentAsc->new($iterator);

while($consolidator->has_next) {
  my $result=$consolidator->get_next;
  print $result,"\n";
}