Branch Coverage

blib/lib/Dir/Flock.pm
Criterion Covered Total %
branch 17 72 23.6


line true false branch
24 0 0 if (exists $!{$mnemonic}) { }
34 0 944 $INC{'threads.pm'} ? :
40 0 0 if ($op & 4)
43 0 0 if ($op & 2)
46 0 0 if ($op & 8)
56 0 236 unless (-d $dir)
61 0 0 if (not -r $dir and -w $dir and -x $dir)
74 0 206 if $_DEBUG
75 0 206 if (defined $timeout and &Time::HiRes::time() > $expire)
76 0 0 if $_DEBUG
81 0 206 if (&Time::HiRes::time() > $last_check + $HEARTBEAT_CHECK)
82 0 0 if $_DEBUG
87 0 236 if $_DEBUG
97 0 236 if $_DEBUG
109 11 0 if (-f $rootdir and not -d $rootdir)
132 0 584 unless $Dir::Flock::a->[1] <=> $Dir::Flock::b->[1]
134 0 442 if $_DEBUG
135 442 0 if @F
141 0 0 unless $file
142 0 0 unless open my $fh, '<', "$dir/$file"
147 0 0 if $_DEBUG
148 0 0 if ($host eq $ENV{'HOSTNAME'} or $host eq 'localhost') { }
153 0 0 if $_DEBUG
158 0 0 if $_DEBUG
161 0 0 if (not $status)
177 0 236 unless (defined $LOCK{$dir})
178 0 0 unless &__inGD()
182 0 236 if ($LOCK{$dir}[0] ne _pid())
183 0 0 unless &__inGD()
186 0 236 if $_DEBUG
187 0 236 unless (-f "$dir/$LOCK{$dir}[1]")
189 0 0 unless &__inGD()
194 0 236 unless ($z)
196 0 0 unless &__inGD()
203 6 0 if (defined ${^GLOBAL_PHASE}) { }
204 0 0 if %{^GLOBAL_PHASE} eq 'DESTRUCT'