File Coverage

blib/lib/Data/Intern/Shared.pm
Criterion Covered Total %
statement 6 7 85.7
branch n/a
condition n/a
subroutine 2 3 66.6
pod n/a
total 8 10 80.0


line stmt bran cond sub pod time code
1             package Data::Intern::Shared;
2 3     3   319666 use strict;
  3         5  
  3         96  
3 3     3   12 use warnings;
  3         3  
  3         361  
4             our $VERSION = '0.02';
5             require XSLoader;
6             XSLoader::load('Data::Intern::Shared', $VERSION);
7              
8 0     0     sub CLONE_SKIP { 1 } # blessed C-pointer handle: never clone into ithreads (double-free)
9             1;
10             __END__