| 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__ |