Condition Coverage

blib/lib/MCE/Shared.pm
Criterion Covered Total %
condition 36 101 35.6


and 3 conditions

line !l l&&!r l&&r condition
55 0 139 15 defined $_[0] and $_[0] eq "MCE::Shared"
58 3 31 120 ref $_[0] eq "HASH" and $_[0]{'module'}
79 3 0 31 ref $_[0] eq 'HASH' && ref $_[1]
84 0 34 0 @_ and not $_[0]
34 0 0 @_ and not $_[0] and $!
89 0 0 0 ref $_[0] eq "SCALAR" and not ref ${$_[0];}
99 2 0 0 tied @{$_[0];} and tied(@{$_[0];})->can("SHARED_ID")
106 0 0 0 tied %{$_[0];} and tied(%{$_[0];})->can("SHARED_ID")
113 0 0 0 tied ${$_[0];} and tied(${$_[0];})->can("SHARED_ID")
127 0 0 0 tied *{$_[0];} and tied(*{$_[0];})->can("SHARED_ID")
147 28 0 195 defined $_[0] and $_[0] eq "MCE::Shared"
224 2 6 0 defined $_[0] and $_[0] eq "MCE::Shared"
228 2 0 6 ref $_[0] eq "GLOB" and tied *{$_[0];}
2 0 6 ref $_[0] eq "GLOB" and tied *{$_[0];} and ref tied *{$_[0];} eq "MCE::Shared::Object"
234 2 0 0 ref $_[0] eq "GLOB" and tied *{$_[0];}
260 4 0 0 ref $_[0] eq 'HASH' && exists $_[0]{'module'}
270 0 0 0 ref $_[0] eq "HASH" and $_[0]{'module'} eq "MCE::Shared::Handle"
272 0 0 0 ref $_[0] eq "HASH" and exists $_[0]{'module'}
273 0 0 0 @_ == 3 and ref $_[2]
0 0 0 @_ == 3 and ref $_[2] and defined(my $_fd = fileno $_[2])
291 3 0 6 ref $_[0] eq "HASH" and exists $_[0]{'module'}
304 3 0 0 @_ < 3 and $_[0] eq 'ordered' || $_[0] eq 'ordhash'
3 0 0 @_ < 5 and $_[0] eq 'max_age' || $_[0] eq 'max_keys'
319 73 0 0 ref $_[0] eq 'HASH' && exists $_[0]{'module'}
388 0 6 0 $_obj and $_obj->[2]

or 2 conditions

line l !l condition
69 0 120 delete $_params->{'new'} || 'new'

or 3 conditions

line l !l&&r !l&&!r condition
74 15 2 103 (caller)->isa("MCE::Hobo::_hash") or exists $_params->{'_DEEPLY_'}
154 10 6 119 $_fcn eq "array" or $_fcn eq "hash"
0 0 118 $_fcn eq "pdl" or $_fcn =~ /^pdl_(s?byte|u?short|u?long|indx|u?longlong|float|l?double|sequence|zeroe?s|ones|g?random)$/
213 105 13 0 $INC{"MCE/Shared/$_pkg.pm"} or eval "use MCE::Shared::$_pkg (); 1"
297 0 0 0 $_[0]{'ordered'} or $_[0]{'ordhash'}
0 0 0 exists $_[0]{'max_age'} or exists $_[0]{'max_keys'}
304 0 0 0 $_[0] eq 'ordered' || $_[0] eq 'ordhash'
0 0 0 $_[0] eq 'max_age' || $_[0] eq 'max_keys'