Branch Coverage

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


line true false branch
25 0 305 unless $tmpdir
30 1 304 if $ENV{'TS_KEEP_TEMPDIR'}
54 1 140 unless my $type = &blessed($e)
56 1 139 unless $type->isa('Test::Stream::Event')
71 1 489 if -e $hfile
74 0 489 unless open my $fh, '>', $hfile
86 1 385 unless -e $hfile
89 0 385 unless open my $fh, '<', $hfile
93 0 385 unless $pid == $$
96 0 385 unless 0 == $tid
99 1 384 if ($ENV{'TS_KEEP_TEMPDIR'}) { }
100 0 1 unless rename $hfile, 'File::Spec'->canonpath("$hfile.complete")
103 0 384 unless unlink $hfile
106 0 385 unless opendir my $dh, $tdir
108 2 1126 if $file =~ /\.complete$/
109 1125 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 800 unless opendir my $dh, $tempdir
178 1600 1405 if $file =~ /^\.+$/
179 1350 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 206 unless defined $self->pid
245 1 205 unless defined $self->tid
247 2 203 unless $$ == $self->pid
248 1 202 unless 0 == $self->tid
252 0 202 unless opendir my $dh, $tempdir
254 402 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 200 if ($ENV{'TS_KEEP_TEMPDIR'})
275 0 200 unless rmdir $tempdir