Branch Coverage

blib/lib/Test/Stream/IPC/Files.pm
Criterion Covered Total %
branch 73 88 82.9


line true false branch
25 0 304 unless $tmpdir
30 1 303 if $ENV{'TS_KEEP_TEMPDIR'}
54 1 140 unless my $type = &blessed($e)
56 1 139 unless $type->isa('Test::Stream::Event')
71 1 487 if -e $hfile
74 0 487 unless open my $fh, '>', $hfile
86 1 383 unless -e $hfile
89 0 383 unless open my $fh, '<', $hfile
93 0 383 unless $pid == $$
96 0 383 unless 0 == $tid
99 1 382 if ($ENV{'TS_KEEP_TEMPDIR'}) { }
100 0 1 unless rename $hfile, 'File::Spec'->canonpath("$hfile.complete")
103 0 382 unless unlink $hfile
106 0 383 unless opendir my $dh, $tdir
108 2 1121 if $file =~ /\.complete$/
109 1120 1 unless $file =~ /^$hid/
123 2 141 unless $global or -f $hfile
129 129 10 if ($global)
137 0 138 unless rename $file, $ready
139 1 138 unless ($ok)
173 0 797 unless opendir my $dh, $tempdir
178 1594 1401 if $file =~ /^\.+$/
179 1346 55 unless $file =~ /^(\Q$hid\E|GLOBAL)-.*\.ready$/
181 45 10 if $global and $self->globals->{$file}++
190 8 2 unless ($global)
192 1 7 if ($ENV{'TS_KEEP_TEMPDIR'}) { }
193 0 1 unless rename $full, $complete
196 0 7 unless unlink $full
212 1 13 unless &blessed($obj)
215 3 10 unless ($obj->isa('Test::Stream::Event'))
220 1 2 unless $ok
223 1 1 unless $obj->isa('Test::Stream::Event')
244 1 205 unless defined $self->pid
245 1 204 unless defined $self->tid
247 2 202 unless $$ == $self->pid
248 1 201 unless 0 == $self->tid
252 0 201 unless opendir my $dh, $tempdir
254 400 41 if $file =~ /^\.+$/
255 2 39 if $file =~ /\.complete$/
258 38 1 if ($file =~ /^(GLOBAL|HUB-)/)
261 1 37 if $ENV{'TS_KEEP_TEMPDIR'}
262 0 37 unless unlink $full
270 1 199 if ($ENV{'TS_KEEP_TEMPDIR'})
275 0 199 unless rmdir $tempdir