File Coverage

/tmp/O9qlxPv8O2
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 3     3   8095583 use Storable ();
  3         14  
  3         74  
3 3     3   494 has foo => (
  3         6  
  3         306  
4             is => 'ro',
5             clone => 'cloner_for_%s',
6             );
7             my ( $self, $attrname, $value ) = @_;
8             Storable::dclone( $value );
9 4     4   12 }
10 4         160 1;