/tmp/DTy5nUFJtF | |||
---|---|---|---|
Criterion | Covered | Total | % |
statement | 3 | 3 | 100.0 |
branch | n/a | ||
condition | n/a | ||
subroutine | 1 | 1 | 100.0 |
pod | n/a | ||
total | 4 | 4 | 100.0 |
line | stmt | bran | cond | sub | pod | time | code |
---|---|---|---|---|---|---|---|
1 | my $order = 0; | ||||||
2 | |||||||
3 | package MyTest2; | ||||||
4 | 3 | 3 | 9954521 | use Mite::Shim; | |||
3 | 6 | ||||||
3 | 35 | ||||||
5 | has second => | ||||||
6 | is => 'ro', | ||||||
7 | default => sub { ++$order }; | ||||||
8 | has first => | ||||||
9 | is => 'ro', | ||||||
10 | default => sub { ++$order }; | ||||||
11 | has '+second' => | ||||||
12 | documentation => 'Extended the attribute, so this now has later order'; | ||||||
13 | 1; |