Branch Coverage

blib/lib/Dir/Flock.pm
Criterion Covered Total %
branch 44 112 39.2


line true false branch
27 0 10 if (-f $rootdir and not -d $rootdir)
45 0 15 unless _validate_dir($dir)
54 0 117 if $P
55 5 112 if (defined $timeout and &Time::HiRes::time() > $expire)
57 0 5 if $P
61 1 111 if (&Time::HiRes::time() > $last_check + $HEARTBEAT_CHECK)
62 0 1 if $P
69 0 10 if $P
77 0 4 unless _validate_dir($dir)
86 0 35 if $P
87 1 34 if (defined $timeout and &Time::HiRes::time() > $expire)
89 0 1 if $P
93 0 34 if (&Time::HiRes::time() > $last_check + $HEARTBEAT_CHECK)
94 0 0 if $P
101 0 3 if $P
111 1 4 if ($op & 4)
114 3 2 if ($op & 2)
117 0 2 if ($op & 1)
120 2 0 if ($op & 8)
130 1 13 unless (defined $LOCK{$dir})
131 0 1 if &__inGD()
138 0 13 unless (defined $filename)
139 0 0 if &__inGD()
144 0 13 if $_DEBUG
145 0 13 unless (-f $filename)
146 0 0 if &__inGD()
153 13 0 if ($z)
154 0 13 if $_DEBUG
155 0 13 if $_DEBUG
159 0 0 if &__inGD()
173 0 0 unless $ok
180 0 0 unless $ok
188 0 0 unless ($ok or &__inGD())
201 0 0 unless (lock_ex($dir, $timeout))
206 0 0 if (wantarray) { }
212 0 0 if ($@)
216 0 0 wantarray ? :
221 0 0 unless (lock_sh($dir, $timeout))
226 0 0 if (wantarray) { }
232 0 0 if ($@)
236 0 0 wantarray ? :
243 0 0 unless $ENV{'HOSTNAME'} or $^O eq 'MSWin32' and $ENV{'COMPUTERNAME'}
248 0 371 $INC{'threads.pm'} ? :
266 0 166 if ($excl)
269 166 0 if @f1 > 0
275 0 1 unless $file
280 0 1 if $_DEBUG
281 0 1 if $_DEBUG
288 1 0 if ($host eq _host() or $host eq 'localhost') { }
293 0 1 if $_DEBUG
298 0 0 if $_DEBUG
301 1 0 if (not $status)
320 0 19 unless (-d $dir)
325 0 0 if (not -r $dir and -w $dir and -x $dir)
335 14 0 if (defined ${^GLOBAL_PHASE}) { }
336 0 1 if %{^GLOBAL_PHASE} eq 'DESTRUCT'