File Coverage

blib/lib/Data/Range/Compare/Stream/Result/Base.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod	3	4	75.0
total	25	26	96.1

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;