Branch Coverage

blib/lib/Apache/SharedMem.pm

Criterion	Covered	Total	%
branch	12	256	4.6

line	true	false	branch
215	0	4	if @_ % 2
219	0	0	unless exists $$options{lc $_[$x]}
224	0	4	if $$options{'debug'}
226	0	4	if ($$options{'rootname'})
230	0	0	defined $$options{'rootkey'} ? :
233	0	4	defined $$options{'rootkey'} ? :
237	0	8	unless defined $$options{$name} and $$options{$name} ne ''
241	0	0	defined $$options{$_} ? :
	0	4	if $$options{'debug'}
244	0	0	unless $self->_init_namespace or $$options{'readonly'}
301	0	0	defined $_[0] ? :
	0	0	defined $_[0] && $_[0] ne '' ? :
302	0	0	defined $_[0] ? :
304	0	0	if @_
307	0	0	$wait ? :
309	0	0	$wait ? :
310	0	0	unless ($lock_success)
322	0	0	if (exists $$share{$key}) { }
382	0	0	defined $_[0] ? :
	0	0	defined $_[0] && $_[0] ne '' ? :
383	0	0	defined $_[0] ? :
384	0	0	defined $_[0] ? :
386	0	0	if @_
389	0	0	$wait ? :
391	0	0	$wait ? :
392	0	0	unless ($lock_success)
419	0	0	defined $_[0] ? :
420	0	0	defined $_[0] ? :
422	0	0	if @_
425	0	0	$wait ? :
428	0	0	if (not defined $exists) { }
	0	0	elsif (not $exists) { }
441	0	0	$wait ? :
442	0	0	unless ($lock_success)
470	0	0	defined $_[0] ? :
471	0	0	defined $_[0] ? :
473	0	0	if @_
478	0	0	$wait ? :
479	0	0	unless ($lock_success)
503	0	0	defined $_[0] ? :
505	0	0	if @_
508	0	0	$wait ? :
509	0	0	unless ($lock_success)
534	0	0	defined $_[0] ? :
535	0	0	defined $_[0] ? :
537	0	0	if @_
540	0	0	$wait ? :
541	0	0	unless ($lock_success)
556	0	0	if $$share{$keys[$x]} eq $lastkey
572	0	0	defined $_[0] ? :
574	0	0	if @_
577	0	0	$wait ? :
578	0	0	unless ($lock_success)
605	0	0	defined $_[0] ? :
610	0	0	if ($$options{'readonly'})
620	0	0	unless (exists $$root{'map'}{$namespace})
642	0	0	unless (defined $share)
649	0	0	unless (keys %{$$root{'map'};})
662	0	0	unless (defined $rm)
697	0	0	unless $self->status & 1
699	0	0	$err ? :
711	0	0	defined $_[0] ? :
713	0	0	if @_
716	0	0	$wait ? :
717	0	0	unless ($lock_success)
726	0	0	if $@
727	0	0	unless defined $serialized
763	0	0	defined $_[0] ? :
766	0	0	if (my $ns_obj = $self->_get_namespace_ipcobj($self->_get_root, $namespace)) { }
806	0	0	defined $type ? :
	0	0	defined $timeout ? :
809	0	0	if $self->status eq 1
813	0	0	defined $_[2] ? :
817	0	0	if @_ < 3
821	0	0	if not defined $timeout or $timeout =~ /\D/ or $timeout < 0
822	0	0	if defined $type and $type eq LOCK_UN()
830	0	0	defined $type ? :
833	0	0	if ($@ or not $rv)
856	0	0	if $rv
868	0	0	unless ($ipc_obj->unlock)
927	0	0	if (not defined $$self{'_lock_status'} or $$self{'_lock_status'} & LOCK_UN()) { }
	0	0	elsif ($$self{'_lock_status'} & LOCK_SH() and $type & LOCK_EX()) { }
962	0	0	if (defined $root)
969	0	0	unless (ref $record and ref $record eq 'HASH' and exists $$record{'map'})
971	0	0	if $$options{'debug'}
976	0	0	unless (exists $$record{'version'} and $$record{'version'} >= 2)
998	0	0	if ($$options{'readonly'})
1022	0	0	unless defined $root
1037	0	0	if (my $properties = $$rootrecord{'map'}{$namespace}) { }
1049	0	0	unless defined $share
1071	0	0	if (exists $$rootrecord{'map'}{$namespace}) { }
1077	0	0	if ($$options{'readonly'})
1100	0	0	if defined $share
1102	0	0	unless defined $share
1128	0	4	if (exists $ENV{'GATEWAY_INTERFACE'} and $ENV{'GATEWAY_INTERFACE'} =~ /^CGI-Perl/) { }
	0	4	elsif (exists $ENV{'DOCUMENT_ROOT'}) { }
1131	0	0	if (defined $ROOTKEY) { }
1138	0	0	if (defined $Apache::Server::Starting and $Apache::Server::Starting) { }
1142	0	0	$s->dir_config->get('PROJECT_DOCUMENT_ROOT') ? :
1144	0	0	$s->dir_config->get('PROJECT_ID') ? :
1169	4	0	unless (defined $ipckey)
1171	0	0	defined $docroot ? :
	0	0	unless defined $docroot or $docroot eq '' or not -e $docroot || !(-r $docroot)
1173	0	0	defined $uid ? :
	0	4	unless defined $uid or $uid =~ /[^\d\-]/
1178	4	0	if defined $self
1189	0	0	unless defined $ipc_obj
1195	0	0	if $@
1196	0	0	unless defined $serialized
1200	0	0	if ($serialized ne '') { }
1204	0	0	if $@
1205	0	0	unless ref $record eq 'HASH'
1213	0	0	if $$self{'options'}{'debug'}
1224	0	0	ref $_[0] eq 'HASH' ? :
	0	0	defined $_[0] ? :
1225	0	0	defined $_[0] ? :
1227	0	0	if ($$self{'options'}{'readonly'})
1234	0	0	if $$self{'options'}{'debug'}
1240	0	0	if $@
1241	0	0	unless defined $serialized and $serialized ne ''
1247	0	0	if $@
1254	12	0	unless $_[0]{'options'}{'debug'}
1256	0	0	defined $_[0] && $_[0] =~ /^\d$/ ? :
1257	0	0	if $$self{'options'}{'debug'} >= $dblvl
1275	0	0	defined $_[0] ? :
1289	0	0	if (defined $ROOTKEY)
1292	0	0	if defined $share
1299	0	0	if defined $_[0]{'_lock_status'} and $_[0]{'_lock_status'} & LOCK_SH() || $_[0]{'_lock_status'} & LOCK_EX()