File Coverage

/tmp/3UeTP8ZoGr
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             package MyTest2;
2 2     2   5161006 use Mite::Shim;
  2         19  
  2         67  
3 2     2   397 use Storable ();
  2         4  
  2         280  
4             has foo => (
5             is => 'ro',
6             clone => sub {
7 2     2   5 my ( $self, $attrname, $value ) = @_;
8 2         101 Storable::dclone( $value );
9             },
10             );
11             1;