File Coverage

/tmp/S3ywj8oNL4
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             package MyTest4;
2 4     4   15377175 use Mite::Shim;
  4         42  
  4         138  
3             has attr =>
4             is => 'rw',
5             trigger => 1,
6             lazy => 1,
7             default => 'default',
8             default_does_trigger => 1;
9             has log =>
10             is => 'ro',
11             default => sub { [] },
12             lazy => 1;
13             sub _trigger_attr {
14 18     18   33 my $self = shift;
15 18         24 push @{ $self->log }, [ @_ ];
  18         63  
16             }
17             1;