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__ |