Condition Coverage

blib/lib/IPC/Shareable.pm
Criterion Covered Total %
condition 157 238 65.9


and 3 conditions

line !l l&&!r l&&r condition
188 377 1 98 ref $val and $knot->_need_tie($val)
194 150 0 37 ref $val and $knot->_need_tie($val)
200 92 0 27 $knot->{'_data'} and ref $knot->{'_data'}
203 99 1 19 ref $val and $knot->_need_tie($val)
249 507 0 520 ref $val and my $inner = _is_child($val)
505 129 9 1 defined $code and ref $code ne "CODE"
518 0 2 1 $code and $flags == 2
549 49 0 86 $flags == 2 and $lock_success
49 81 5 $flags == 2 and $lock_success and $code
682 9 0 58 defined $_[0] and not ref $_[0]
9 23 35 defined $_[0] and not ref $_[0] and UNIVERSAL::isa($_[0], __PACKAGE__)
738 0 0 0 $^O eq 'freebsd' && $IPC::Shareable::Config{'longsize'} == 8
0 0 0 $^O eq 'openbsd' && $IPC::Shareable::Config{'longsize'} == 8
0 0 0 $^O eq 'dragonfly' && $IPC::Shareable::Config{'longsize'} == 8
900 0 0 1 $child_knot and $child_knot->{'_key_hex'}
909 0 0 5 $knot_filter and $knot_filter->{'_key_hex'}
1149 0 0 8 $stored_key and $stored_key == $protect_key
1208 0 384 1 $sem_remove_status != 1 and $sem_remove_status ne "0 but true"
1218 0 1 384 $seg_removed and $sem_removed
1229 1 1 83 defined $dist_name and length $dist_name
1235 5 0 1 @_ > 1 and not ref $_[0]
5 0 1 @_ > 1 and not ref $_[0] and defined $_[0]
0 0 1 @_ > 1 and not ref $_[0] and defined $_[0] and UNIVERSAL::isa($_[0], __PACKAGE__)
1239 0 0 6 defined $dist_name and length $dist_name
1298 0 0 5 defined $cpid and $cpid > 0
0 5 0 defined $cpid and $cpid > 0 and $cpid != $$
5 0 0 defined $cpid and $cpid > 0 and $cpid != $$ and kill 0, $cpid
1327 874 20 98 $knot->{'_type_int'} == 2 and ref $data eq "SCALAR"
1330 2 0 96 defined $val and not ref $val
1400 1162 0 73 ref $val and _is_child($val)
1412 79 0 77 ref $val && _is_child($val)
1426 339 0 27 ref $val and _is_child($val)
1436 9 0 44 ref $_ && _is_child($_)
1446 1 0 9 ref $val && _is_child($val)
1477 0 885 433 defined $knot and index($json, "\"__ics__\"") != -1
1484 0 1227 91 defined $knot and $knot->{'_type_int'} == 2
1227 17 74 defined $knot and $knot->{'_type_int'} == 2 and ref $data eq "HASH"
1487 1 0 49 defined $prev && ref $prev
1518 240 50 401 ref $data->{$key} eq "HASH" and exists $data->{$key}{'__ics__'}
1532 44 0 187 ref $data->[$i] eq "HASH" and exists $data->[$i]{'__ics__'}
1535 20 2 165 $prev_is_array && $i <= $prev_max
1546 3 0 566 ref $existing && _is_child($existing)
1547 3 8 558 $inner and $inner->{'_key'} == $info->{'child_key'}
1679 1 582 2 $knot->attributes("limit") and $shm_size > 1073741824
1730 0 1 1 $knot->attributes("create") and $knot->attributes("exclusive")
1815 0 0 4 $thaw_ok and defined $storable_data
1868 0 126 3 defined $stored_protected and $stored_protected != 0
1888 129 11 15 $parent->{'_key'} == IPC_PRIVATE() and $parent->attributes("serializer") ne "json"
1962 715 0 28 ref $val and my $child = _is_child($val)
2058 0 0 32 $child and $child->seg
2114 0 0 1 $child && $child->{'_key_hex'}
2134 0 0 0 $child && $child->{'_key_hex'}
2215 139 1 149 not $verified_exclusive and $check_count < 10
2403 301 284 4 $serializer ne "json" and $serializer ne "storable"
2413 3 243 339 $_testing_dist and not $testing_explicit

or 2 conditions

line l !l condition
472 4 3 $opts{'var'} || 'HASH'
567 122 0 $knot->{'_locked_children'} // []
783 2 24 $int_to_hex{$k_int} // (next)
878 8 0 builtin::reftype($data) // ""
887 1 0 builtin::reftype($v) // ""
918 6 0 $segs->{$h}{'child_keys'} // []
919 1 5 $extra_child_keys{$h} // []
955 6 0 $segs->{$hex} // {}
962 6 0 $id_by_hex{$hex} // "?"
974 6 0 $sem->id // "?"
975 6 0 $sem->getval(0) // "?"
976 6 0 $sem->getval(1) // "?"
977 6 0 $sem->getval(2) // "?"
978 6 0 $sem->getval(3) // "?"
1004 6 0 $seg->{'child_keys'} // []
1005 1 5 $extra_child_keys{$hex} // []
1030 1 11 delete $opts{'_proc_dir'} // "/proc/sys/kernel"
1910 154 0 builtin::reftype($val) || ''
2044 178 4 builtin::reftype($data) // ""
2096 6 0 builtin::reftype($data) // ""
2108 1 0 builtin::reftype($v) // ""
2128 0 0 builtin::reftype($v) // ""
2165 522 64 $knot->attributes('key') || ''
2360 434 0 $h || 1
2368 140 0 $sem->getval(4) // 0
2408 233 352 $opts->{'magic'} || 0

or 3 conditions

line l !l&&r !l&&!r condition
620 1 2 5 not defined $_[0] or $_[0] ne __PACKAGE__
682 1 39 28 ref $_[0] or defined $_[0] and not ref $_[0] and UNIVERSAL::isa($_[0], __PACKAGE__)
1444 1 9 1 $type eq "SCALAR" or $type eq "REF"
1753 129 437 4 "IPC::Semaphore"->new($key, 0, $seg->flags & 511) // "IPC::Semaphore"->new($key, $nsems, $seg->flags)
1848 0 435 0 $process_register{$knot->seg->id} ||= $knot
2165 26 586 0 $key_str //= $knot->attributes('key') || ''
2407 234 351 0 $opts->{'owner'} || $$