#!/usr/bin/perl

use strict;
use warnings;

use lib qw(../lib);
use Data::Range::Compare::Stream::Iterator::File;


my $break="  +-----------+\n";
my $format="  | %-9s |\n";
my %map=(qw(
source_a.src A
source_b.src B
source_c.src C
source_d.src D
));

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);
    print $break;
    printf $format,"Set $map{$file}",$map{$file};
    print $break;
    while($iterator->has_next) {
      printf $format,$iterator->get_next;
      print $break
    }
    print "\n";
}