File Coverage

blib/lib/Data/Clone.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 15 15 100.0


line stmt bran cond sub pod time code
1             package Data::Clone;
2              
3 9     9   1067984 use 5.008_001;
  9         34  
4 9     9   52 use strict;
  9         86  
  9         580  
5              
6             our $VERSION = '0.006';
7              
8 9     9   57 use XSLoader;
  9         19  
  9         451  
9             XSLoader::load(__PACKAGE__, $VERSION);
10              
11 9     9   4416 use parent qw(Exporter);
  9         3136  
  9         85  
12             our @EXPORT = qw(clone);
13             our @EXPORT_OK = qw(data_clone TIECLONE);
14              
15             sub data_clone;
16             *data_clone = \&clone; # alias
17              
18             sub TIECLONE;
19             *TIECLONE = \&clone; # alias
20              
21             1;
22             __END__