| line |
true |
false |
branch |
|
33
|
0 |
73 |
unless $tmpdir |
|
38
|
1 |
72 |
if $ENV{'T2_KEEP_TEMPDIR'} |
|
62
|
1 |
35 |
unless my $type = &blessed($e) |
|
64
|
1 |
34 |
unless $type->isa('Test2::Event') |
|
79
|
1 |
85 |
if -e $hfile |
|
82
|
0 |
85 |
unless open my $fh, '>', $hfile |
|
94
|
1 |
55 |
unless -e $hfile |
|
97
|
0 |
55 |
unless open my $fh, '<', $hfile |
|
101
|
0 |
55 |
unless $pid == $$ |
|
104
|
0 |
55 |
unless 0 == $tid |
|
107
|
1 |
54 |
if ($ENV{'T2_KEEP_TEMPDIR'}) { } |
|
108
|
0 |
1 |
unless rename $hfile, 'File::Spec'->canonpath("$hfile.complete") |
|
111
|
0 |
54 |
unless unlink $hfile |
|
114
|
0 |
55 |
unless opendir my $dh, $tdir |
|
116
|
2 |
171 |
if $file =~ /\.complete$/ |
|
117
|
170 |
1 |
unless $file =~ /^$hid/ |
|
129
|
19 |
19 |
$global ? : |
|
131
|
2 |
36 |
unless $global or -f $hfile |
|
147
|
19 |
15 |
if ($global) |
|
155
|
0 |
33 |
unless rename $file, $ready |
|
158
|
1 |
33 |
unless ($ok) |
|
192
|
0 |
70 |
unless opendir my $dh, $tempdir |
|
196
|
140 |
159 |
if substr($file, 0, 1) eq '.' |
|
198
|
121 |
38 |
unless substr($file, -6, 6) eq '.ready' |
|
204
|
0 |
38 |
unless $have_hid or $global |
|
206
|
11 |
27 |
if $global and $self->{'globals'}{$hid}{$file}++ |
|
216
|
14 |
13 |
if $global |
|
219
|
1 |
12 |
if ($ENV{'T2_KEEP_TEMPDIR'}) { } |
|
220
|
0 |
1 |
unless rename $full, $complete |
|
223
|
0 |
12 |
unless unlink $full |
|
236
|
1 |
30 |
unless &blessed($obj) |
|
239
|
2 |
28 |
unless ($obj->isa('Test2::Event')) |
|
244
|
1 |
1 |
unless $ok |
|
247
|
1 |
0 |
unless $obj->isa('Test2::Event') |
|
269
|
1 |
54 |
unless defined $self->pid |
|
270
|
1 |
53 |
unless defined $self->tid |
|
272
|
2 |
51 |
unless $$ == $self->pid |
|
273
|
1 |
50 |
unless 0 == $self->tid |
|
277
|
0 |
50 |
unless opendir my $dh, $tempdir |
|
279
|
98 |
8 |
if $file =~ /^\.+$/ |
|
280
|
2 |
6 |
if $file =~ /\.complete$/ |
|
283
|
5 |
1 |
if ($file =~ /^(GLOBAL|HUB-)/) |
|
286
|
1 |
4 |
if $ENV{'T2_KEEP_TEMPDIR'} |
|
287
|
0 |
4 |
unless unlink $full |
|
295
|
1 |
48 |
if ($ENV{'T2_KEEP_TEMPDIR'}) |
|
300
|
0 |
48 |
unless rmdir $tempdir |