File Coverage

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