=pod

=head1 NAME

Data::Range::Compare::Stream::Iterator::Consolidate::OverlapAsColumn - Consolidates by moving overlaps to new columns

=head1 SYNOPSIS

  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::Asc;
  use Data::Range::Compare::Stream::Iterator::Compare::ColumnRelations;
  
  my $compare=new  Data::Range::Compare::Stream::Iterator::Compare::Asc();
  my $relations=new Data::Range::Compare::Stream::Iterator::Compare::ColumnRelations($compare);
  
  my $source_a=Data::Range::Compare::Stream::Iterator::File->new(filename=>'source_a.src');
  my $consolidator_a=new Data::Range::Compare::Stream::Iterator::Consolidate::OverlapAsColumn($source_a,$compare);
  $compare->add_consolidator($consolidator_a);
  
  my $source_b=Data::Range::Compare::Stream::Iterator::File->new(filename=>'source_b.src');
  my $consolidator_b=new Data::Range::Compare::Stream::Iterator::Consolidate::OverlapAsColumn($source_b,$compare);
  $compare->add_consolidator($consolidator_b);
  
  my $source_c=Data::Range::Compare::Stream::Iterator::File->new(filename=>'source_c.src');
  my $consolidator_c=new Data::Range::Compare::Stream::Iterator::Consolidate::OverlapAsColumn($source_c,$compare);
  $compare->add_consolidator($consolidator_c);
  
  my $source_d=Data::Range::Compare::Stream::Iterator::File->new(filename=>'source_d.src');
  my $consolidator_d=new Data::Range::Compare::Stream::Iterator::Consolidate::OverlapAsColumn($source_d,$compare);
  $compare->add_consolidator($consolidator_d);
  
  my $format='| %-12s | %-26s |  %-26s|  %-26s|  %-26s|'."\n";
  my $break="+--------------+----------------------------+----------------------------+----------------------------+----------------------------+\n";
  printf "$break$format$break","Intersection","Source A",'Source B','Source C','Source D';
  
  while($compare->has_next) {
  
    my $result=$compare->get_next;
    next if $result->is_empty;
  
    my $columns=$relations->get_root_results($result);
    my @row=($result->get_common);
    foreach my $id (@{$relations->get_root_ids}) {
      if(exists $columns->{$id}) {
      push @row, join ', ',map { $_->get_common } @{$columns->{$id}};
      } else {
        push @row,"No Data";
      }
    }
  
    printf $format,@row;
    print $break;
  }

=head1 DESCRIPTION

This module extends the consolidation engine for Data::Range::Compare::Stream.  Unlike the default consolidation object this class does not merge ranges when they overlap:  It creates additional instances of itself and inserts them into the "Compare" object.  Each new object refers to the object that created it.

Data::Range::Compare::Stream::Iterator::Consolidate::OverlapAsColumn can consolidate ranges sorted in the following order:

  Consolidation Asc

    range_start asc,range_end desc

=head2 OO Methods

=over 3

=item * my $processor=new Data::Range::Compare::Stream::Iterator::Consolidate::OverlapAsColumn($iterator,$cmp);

Object constructor takes 2 argument: $processor and $cmp:  An $iterator object must implement Data::Range::Compare::Stream::Iterator::Base.  A $cmp object must implement  Data::Range::Compare::Stream::Iterator::Compare::Asc.


=item * while($processor->has_next) { do something }

Returns true when the there are more ranges to consolidate

=item * my $range=$processor->get_next;

if $processor->has_next returns true Returns a instance of Data::Range::Compare::Stream::Iterator::Consolidate::Result.

=item * $self->on_consolidate($new_range,$overlapping_range,$next_range)

Called during the consolidation process to copy ranges that overlap with the current range being compared into the next valid column.

=item * $processor->set_column_id($id);

Sets the column_id value.  This is used by the Compare Layer

=item * my $id=$processor->get_column_id($id);

Gets the column_id, returns undef if not set.

=item * $processor->set_root_column_id($id)

Sets the parent object's column id.

=item * my $cmp=$processor->get_compare

Returns the Data::Range::Compare::Stream::Iterator::Compare::Asc object passed to the constructor.

=item * my $result=$processor->get_current_result;

Returns the last Data::Range::Compare::Stream::Iterator::Consolidate::Result object from the $processor->has_next call.

=item * my $count=$processor->buffer_count;

Returns the current buffer count.

=item * if($processor->iterator_has_next) { ... }

Returns the internal iterator has_next state

=item * $self->push_to_buffer;

Internal function.  Pushes results onto the buffer.

=item * my $class=$processor->NEW_ARRAY_ITERATOR_FROM;

Defines the class that will be used to create iterator objects:  $class must implement Data::Range::Compare::Stream::Iterator::Base.

=item * my $class=$processor->NEW_CHILD_CONSOLIDATOR_FROM;

Defines the class that will be used to create consolidator objects that will be pushed into the compare object at runtime.  $class must implement Data::Range::Compare::Stream::Iterator::Consolidate::OverlapAsColumn .

=item * my $id=$processor->get_root_column_id;

Gets the parent object's column_id, returns undef if not set.

=item * if($processor->is_child) { ... }

Returns true if this object is a child of another Consolidator object.

=back

=head1 SEE ALSO

Data::Range::Compare::Stream::Iterator::Consolidate::OverlapAsColumn::Result

Data::Range::Compare::Stream::Iterator::Base

Data::Range::Compare::Stream::Cookbook

=head1 AUTHOR

Michael Shipper

=head1 Source-Forge Project

As of version 0.001 the Project has been moved to Source-Forge.net

L<Data Range Compare|https://sourceforge.net/projects/data-range-comp/>
L<https://sourceforge.net/projects/data-range-comp/>

=head1 COPYRIGHT

Copyright 2011 Michael Shipper.  All rights reserved.

This library is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.

=cut