File Coverage

/tmp/D3UeTP8ZoG
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 MyTest3;
2 3     3   10297741 use Mite::Shim;
  3         39  
  3         105  
3             has attr =>
4             is => 'rw',
5             trigger => 1,
6             default => 'default',
7             default_does_trigger => 1;
8             has log =>
9             is => 'ro',
10             default => sub { [] },
11             lazy => 1;
12             sub _trigger_attr {
13 12     12   22 my $self = shift;
14 12         16 push @{ $self->log }, [ @_ ];
  12         30  
15             }
16             1;