| line |
true |
false |
branch |
|
81
|
6 |
0 |
if $errh_msg |
|
85
|
0 |
6 |
if defined $s->{'error'} |
|
92
|
14 |
15 |
if (defined $s) { } |
|
93
|
9 |
5 |
if $errh_msg |
|
96
|
3 |
11 |
if defined $s->{'error'} |
|
114
|
29 |
28 |
unless %$s |
|
116
|
20 |
8 |
unless (exists $s->{'create'}) |
|
120
|
8 |
20 |
if (exists $s->{'error'}) { } |
|
121
|
4 |
4 |
if (defined $s->{'error'}) |
|
123
|
1 |
3 |
if builtin::reftype($s->{'error'}) ne "CODE" |
|
130
|
22 |
5 |
unless (exists $s->{'flatten'}) |
|
134
|
23 |
4 |
unless (exists $s->{'exclusive'}) |
|
138
|
19 |
8 |
unless (exists $s->{'newline'}) |
|
142
|
7 |
20 |
if (exists $s->{'patience'}) { } |
|
144
|
0 |
7 |
unless defined $s->{'patience'} |
|
146
|
1 |
6 |
unless $s->{'patience'} =~ /^(\d*\.)?\d+$/n |
|
148
|
0 |
6 |
if $s->{'patience'} < 0 |
|
154
|
14 |
12 |
if (exists $s->{'separator'}) { } |
|
156
|
1 |
13 |
if defined $s->{'separator'} and $s->{'separator'} eq "" |
|
162
|
20 |
5 |
unless (exists $s->{'unique'}) |
|
166
|
3 |
22 |
if (8 < keys %$s) |
|
237
|
35 |
8 |
if -f $fname |
|
239
|
0 |
8 |
unless -d $dname |
|
248
|
6 |
29 |
if exists $imfh{$cname} |
|
252
|
1 |
28 |
if $oflag & 128 |
|
254
|
26 |
3 |
if (flock_take($imfh{$cname}, $lflag, $p)) { } |
|
269
|
0 |
26 |
unless exists $imfh{$cname} |
|
271
|
0 |
26 |
unless close $imfh{$cname} |
|
310
|
1 |
9 |
if (defined $s->{'newline'} and defined $s->{'separator'}) { } |
|
317
|
0 |
1 |
if substr($data->[-1], 0, -$e0n) eq $e0 |
|
332
|
5 |
15 |
unless open_file $cname, 0, $lflag, $s->{'patience'} |
|
335
|
0 |
15 |
unless close_file $cname |
|
338
|
1 |
14 |
if ref $data eq "" |
|
347
|
2 |
1 |
unless exists $imfh{$cname} |
|
349
|
0 |
1 |
unless defined fileno $imfh{$cname} |
|
351
|
0 |
1 |
unless close_file $cname |
|
360
|
2 |
5 |
unless open_file $cname, 2 | $oflag, 2, $s->{'patience'} |
|
364
|
0 |
5 |
if ref $data eq "" |
|
376
|
0 |
4 |
unless my $s = full_setting(\%set, $default->{$nsp}) |
|
379
|
0 |
4 |
$s->{'create'} ? : |
|
|
0 |
4 |
$s->{'unique'} ? : |
|
381
|
0 |
4 |
unless my $cname = canonical($fname) |
|
386
|
1 |
3 |
unless $s->{'create'} or -f $cname |
|
388
|
1 |
2 |
unless open_file $cname, 1 | $oflag, 2, $s->{'patience'} |
|
391
|
0 |
2 |
unless close_file $cname |
|
402
|
5 |
17 |
unless my $s = full_setting(\%set, $default->{$nsp}) |
|
403
|
0 |
17 |
$s->{'exclusive'} ? : |
|
404
|
0 |
17 |
unless my $cname = canonical($fname) |
|
416
|
0 |
0 |
unless my $s = full_setting(\%set, $default->{$nsp}) |
|
417
|
0 |
0 |
unless my $cname = canonical($fname) |
|
429
|
0 |
5 |
unless my $s = full_setting(\%set, $default->{$nsp}) |
|
432
|
3 |
2 |
$s->{'create'} ? : |
|
|
0 |
5 |
$s->{'unique'} ? : |
|
434
|
0 |
5 |
unless my $cname = canonical($fname) |
|
439
|
0 |
2 |
unless $s->{'create'} or -f $cname |
|
441
|
1 |
4 |
unless open_file $cname, 1 | $oflag, 2, $s->{'patience'} |
|
445
|
0 |
4 |
unless close_file $cname |
|
456
|
0 |
4 |
unless my $s = full_setting(\%set, $default->{$nsp}) |
|
457
|
0 |
4 |
unless my $cname = canonical($fname) |
|
462
|
1 |
4 |
unless exists $imfh{$cname} |
|
464
|
0 |
4 |
unless defined fileno $kludge |
|
470
|
0 |
4 |
unless close_file $cname |
|
481
|
0 |
8 |
unless my $s = full_setting(\%set, $default->{$nsp}) |
|
484
|
1 |
6 |
$s->{'create'} ? : |
|
|
1 |
7 |
$s->{'unique'} ? : |
|
486
|
0 |
8 |
unless my $cname = canonical($fname) |
|
490
|
1 |
6 |
unless $s->{'create'} or -f $cname |
|
502
|
1 |
2 |
unless my $s = full_setting(\%set, $default->{$nsp}) |
|
503
|
0 |
2 |
$s->{'exclusive'} ? : |
|
504
|
0 |
2 |
unless my $cname = canonical($fname) |
|
518
|
0 |
1 |
unless my $s = full_setting(\%set, $default->{$nsp}) |
|
519
|
0 |
1 |
unless my $cname = canonical($fname) |
|
533
|
0 |
2 |
unless my $s = full_setting(\%set, $default->{$nsp}) |
|
536
|
0 |
2 |
$s->{'create'} ? : |
|
|
0 |
2 |
$s->{'unique'} ? : |
|
538
|
0 |
2 |
unless my $cname = canonical($fname) |
|
560
|
0 |
4 |
unless my $s = full_setting(\%set, $default->{$nsp}) |