#!/usr/bin/perl
use strict;
use warnings;
use lib qw(../lib);
use Data::Range::Compare::Stream::Iterator::File;
use Data::Range::Compare::Stream;
use Data::Range::Compare::Stream::Iterator::Consolidate::OverlapAsColumn;
use Data::Range::Compare::Stream::Iterator::Compare::LayerCake;
my $lk=new Data::Range::Compare::Stream::Iterator::Compare::LayerCake(ignore_empty=>1);
foreach my $file (qw(source_a.src source_b.src source_c.src source_d.src)) {
my $iterator=Data::Range::Compare::Stream::Iterator::File->new(filename=>$file);
my $cmp=new Data::Range::Compare::Stream::Iterator::Compare::LayerCake(ignore_empty=>1);
my $con=new Data::Range::Compare::Stream::Iterator::Consolidate::OverlapAsColumn($iterator,$cmp);
$cmp->add_consolidator($con);
$lk->add_consolidator($cmp);
}
while($lk->has_next) {
print $lk->get_next,"\n";
}