/tmp/4vuWLlNSAG | |||
---|---|---|---|
Criterion | Covered | Total | % |
statement | 8 | 8 | 100.0 |
branch | n/a | ||
condition | n/a | ||
subroutine | 3 | 3 | 100.0 |
pod | n/a | ||
total | 11 | 11 | 100.0 |
line | stmt | bran | cond | sub | pod | time | code |
---|---|---|---|---|---|---|---|
1 | use Mite::Shim; | ||||||
2 | 4 | 4 | 11685251 | use Storable (); | |||
4 | 32 | ||||||
4 | 89 | ||||||
3 | 4 | 4 | 597 | has foo => ( | |||
4 | 4 | ||||||
4 | 454 | ||||||
4 | is => 'ro', | ||||||
5 | clone => sub { | ||||||
6 | my ( $self, $attrname, $value ) = @_; | ||||||
7 | 6 | 6 | 18 | Storable::dclone( $value ); | |||
8 | 6 | 282 | }, | ||||
9 | ); | ||||||
10 | 1; |