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 29     29   8894 use strict;
  29         43  
  29         753  
3 29     29   105 use warnings;
  29         32  
  29         1822  
4             use overload "." => sub {
5 16     16   3316 my ($self, $other, $swap) = @_;
6 16         48 require Data::Focus::Lens::Composite;
7 16 100       57 return Data::Focus::Lens::Composite->new(
8             $swap ? ($other, $self) : ($self, $other)
9             );
10 29     29   26445 };
  29         21960  
  29         226  
11              
12             1;
13             __END__