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


line stmt bran cond sub pod time code
1             package Data::Range::Compare::Stream::Result::Base;
2              
3 20     20   22022 use strict;
  20         38  
  20         519  
4 20     20   101 use warnings;
  20         49  
  20         1015  
5             use overload
6 20         182 'bool'=>\&boolean,
7             '""'=>\&to_string,
8 20     20   3489 Fallback=>1;
  20         2362  
9              
10 584     584 1 1433 sub to_string { join ' - ',@{$_[0]}[0,1] }
  584         4075  
11              
12             sub new {
13 63214     63214 1 147110 my ($class,@args)=@_;
14 63214         249947 bless [@args],$class;
15             }
16              
17 250758     250758 1 581610 sub get_common { $_[0] }
18              
19              
20 10     10 0 301 sub boolean { 1 }
21              
22             1;