line |
true |
false |
branch |
19
|
0 |
1 |
unless my $self = shift @_ |
21
|
0 |
1 |
unless my $size = shift @_ |
22
|
0 |
1 |
unless open my $FILE, '<', '/dev/zero' |
28
|
0 |
1 |
unless my $size = shift @_ |
29
|
0 |
1 |
unless open my $FILE, '<', '/dev/zero' |
30
|
0 |
0 |
unless my $mmap = 'IPC::Mmap'->new($FILE, $size, PROT_READ() | PROT_WRITE(), MAP_SHARED() | MAP_ANONYMOUS()) |
35
|
0 |
0 |
unless my $self = shift @_ |
36
|
0 |
0 |
unless my $mmap = shift @_ |
41
|
0 |
0 |
unless my $self = shift @_ |
46
|
0 |
0 |
unless my $self = shift @_ |
52
|
0 |
0 |
unless my $var = shift @_ |
56
|
0 |
0 |
unless my $serialized = freeze($var_ref) |
59
|
0 |
0 |
if length $serialized > $self->get_size |
61
|
0 |
0 |
if $DEBUG |
64
|
0 |
0 |
unless $mmap->lock |
65
|
0 |
0 |
unless $mmap->write($serialized, 0, $size) |
66
|
0 |
0 |
unless $mmap->unlock |
75
|
0 |
0 |
unless $mmap->lock |
76
|
0 |
0 |
unless $mmap->read($unserialized, 0, $size) |
77
|
0 |
0 |
unless $mmap->unlock |
78
|
0 |
0 |
unless my $var_ref = thaw($unserialized) |
83
|
0 |
0 |
unless my $self = shift @_ |
84
|
0 |
0 |
unless my $mmap = $self->get_mmap |
85
|
0 |
0 |
unless $mmap->lock |
91
|
0 |
0 |
unless my $self = shift @_ |
92
|
0 |
0 |
unless my $mmap = $self->get_mmap |
93
|
0 |
0 |
unless $mmap->unlock |
98
|
0 |
0 |
unless my $self = shift @_ |
99
|
0 |
0 |
if $$self{'locked'} == 1 |
104
|
0 |
0 |
unless my $self = shift @_ |
105
|
0 |
0 |
unless my $mmap = $self->get_mmap |
106
|
0 |
0 |
if ($self->is_locked) |
107
|
0 |
0 |
unless $mmap->unlock |