File Coverage

/tmp/5T68lTe4z4
Criterion Covered Total %
statement 7 7 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 10 10 100.0


line stmt bran cond sub pod time code
1             package MyParent;
2 5     5   17757232 use Mite::Shim;
  5         50  
  5         307  
3             has list =>
4             is => 'ro',
5 8     8   28 builder => sub { [ 1, 2, 3 ] };
6              
7             package MyChild;
8 5     5   1196 use Mite::Shim;
  5         10  
  5         45  
9             extends 'MyParent';
10             has '+list' =>
11             default => sub {
12             my $orig = shift->_build_list;
13             push @$orig, 4;
14             return $orig;
15             };
16              
17             1;