File Coverage

/tmp/90Uxee6Yft
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1             use Mite::Shim;
2 2     2   3773396  
  2         4  
  2         28  
3             # For lexical environment test
4             use strict;
5 2     2   144 use warnings;
  2         4  
  2         31  
6 2     2   7 use feature ':5.10';
  2         3  
  2         60  
7 2     2   13  
  2         3  
  2         666  
8             has number =>
9             is => 'rw',
10             default => sub { 23 };
11              
12             has list =>
13             is => 'rw',
14             default => sub { [] };
15              
16             my $thing = { foo => 99 };
17             has closure =>
18             is => 'rw',
19             default => sub { $thing };
20              
21             has counter =>
22             is => 'rw',
23             default => sub {
24             state $counter = 0;
25             $counter++;
26             return $counter;
27             };
28              
29             1;