File Coverage

blib/lib/Data/Focus/Lens.pm
Criterion Covered Total %
statement 12 12 100.0
branch 2 2 100.0
condition n/a
subroutine 4 4 100.0
pod n/a
total 18 18 100.0


line stmt bran cond sub pod time code
1             package Data::Focus::Lens;
2 23     23   7892 use strict;
  23         39  
  23         704  
3 23     23   93 use warnings;
  23         32  
  23         1741  
4             use overload "." => sub {
5 11     11   3391 my ($self, $other, $swap) = @_;
6 11         49 require Data::Focus::Lens::Composite;
7 11 100       47 return Data::Focus::Lens::Composite->new(
8             $swap ? ($other, $self) : ($self, $other)
9             );
10 23     23   23672 };
  23         19495  
  23         199  
11              
12             1;
13             __END__