package Data::Range::Compare::Stream::Result::Base;
use strict;
use warnings;
use overload
'bool'=>\&boolean,
'""'=>\&to_string,
Fallback=>1;
sub to_string { join ' - ',@{$_[0]}[0,1] }
sub new {
my ($class,@args)=@_;
bless [@args],$class;
}
sub get_common { $_[0] }
sub boolean { 1 }
1;