Branch Coverage

blib/lib/IPC/Shm/Simple.pm
Criterion Covered Total %
branch 48 102 47.0


line true false branch
86 1 1 unless ($self = $this->attach($ipckey))
88 0 1 unless $self = $this->create($ipckey, $size, $mode)
116 0 6 unless defined $ipckey
119 0 6 unless $ipckey
122 0 6 unless $ipckey > 0
125 0 6 if $ipckey == IPC_PRIVATE()
130 0 6 if (my $shmid = $ShmIndex{$ipckey})
132 0 0 unless ($share)
142 0 0 if ($self->is_valid)
158 3 3 unless $share
162 0 3 unless (defined $shmid)
173 0 3 unless $self->ATTACH
227 0 6 unless $share
231 0 6 unless (defined $shmid)
242 4 2 unless $ipckey == IPC_PRIVATE()
258 0 0 unless defined $shmid
261 0 0 if $shmid == -1
266 0 0 if (my $share = $ShmShare{$shmid})
272 0 0 if ($self->is_valid)
287 0 0 unless $share
294 0 0 unless $self->ATTACH
321 0 5 unless ($share)
326 0 5 sharelite_remove($share) == -1 ? :
336 0 9 unless (defined $shmid)
343 0 9 if $ShmCount{$shmid}
369 0 9 unless (defined $shmid)
376 0 9 unless ($share)
385 7 2 unless $ipckey == IPC_PRIVATE()
537 0 0 unless (defined $shmid)
559 0 2007 if $self->_locked(8)
564 0 2007 unless ($share)
571 0 2007 unless (defined $shmid)
585 1968 39 unless $$cache{'serial'} and $$cache{'serial'} == $serial
590 39 1968 unless ($dofetch)
591 0 39 if (my $ttl = $self->dwell)
592 0 0 if $$cache{'sstamp'} + $ttl < time
596 1968 39 if ($dofetch)
600 0 1968 unless defined $$cache{'scache'}
606 0 1968 if (my $cref = UNIVERSAL::can($self, 'FRESH'))
624 0 2007 unless $self->_locked(2)
629 0 2007 unless ($share)
636 0 2007 unless ($shmid)
645 0 2007 if $rc == -1
648 2007 0 if ($self->verify)
651 0 2007 unless defined $data
654 0 2007 unless $_[0] eq $data
684 0 4006 unless ($share)
690 0 4006 if sharelite_locked($share, $flag)
694 0 4006 if ($rc == -1)
711 0 4014 unless ($share)
718 0 4014 if ($rc == -1)