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; |