line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
use Mite::Shim; |
2
|
2
|
|
|
2
|
|
4871302
|
|
|
2
|
|
|
|
|
6
|
|
|
2
|
|
|
|
|
20
|
|
3
|
|
|
|
|
|
|
# For lexical environment test |
4
|
|
|
|
|
|
|
use strict; |
5
|
2
|
|
|
2
|
|
196
|
use warnings; |
|
2
|
|
|
|
|
4
|
|
|
2
|
|
|
|
|
39
|
|
6
|
2
|
|
|
2
|
|
10
|
use feature ':5.10'; |
|
2
|
|
|
|
|
3
|
|
|
2
|
|
|
|
|
65
|
|
7
|
2
|
|
|
2
|
|
12
|
|
|
2
|
|
|
|
|
4
|
|
|
2
|
|
|
|
|
673
|
|
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; |