File Coverage

blib/lib/Data/Buffer/Shared.pm
Criterion Covered Total %
statement 9 10 90.0
branch n/a
condition n/a
subroutine 3 4 75.0
pod n/a
total 12 14 85.7


line stmt bran cond sub pod time code
1             package Data::Buffer::Shared;
2 16     16   224273 use strict;
  16         22  
  16         474  
3 16     16   70 use warnings;
  16         26  
  16         1184  
4             our $VERSION = '0.05';
5              
6             require XSLoader;
7             XSLoader::load('Data::Buffer::Shared', $VERSION);
8              
9             # ithreads: blessed shared-memory handles must never be cloned into a
10             # child thread -- the clone would double-free the handle on thread exit.
11 16     16   75 { no strict 'refs'; *{"${_}::CLONE_SKIP"} = sub { 1 } for qw(
  16     0   27  
  16         1677  
  0            
12             Data::Buffer::Shared::U8
13             Data::Buffer::Shared::I8
14             Data::Buffer::Shared::U16
15             Data::Buffer::Shared::I16
16             Data::Buffer::Shared::U32
17             Data::Buffer::Shared::I32
18             Data::Buffer::Shared::U64
19             Data::Buffer::Shared::I64
20             Data::Buffer::Shared::F32
21             Data::Buffer::Shared::F64
22             Data::Buffer::Shared::Str
23             ); }
24              
25             1;
26              
27             __END__