| line |
true |
false |
branch |
|
49
|
45 |
1 |
if (@_) |
|
50
|
10 |
35 |
unless $self->open(@_) |
|
62
|
13 |
32 |
if (@_ and ref $_[-1] eq "HASH") |
|
65
|
41 |
4 |
unless (exists *$self->{'opts'}{'autocommit'}) |
|
70
|
5 |
40 |
unless defined $offset |
|
73
|
13 |
27 |
unless (defined $checksum) |
|
77
|
8 |
32 |
defined $archive ? : |
|
78
|
5 |
35 |
if (not defined $fh) { } |
|
|
11 |
24 |
elsif (not defined $checksum) { } |
|
|
9 |
15 |
elsif (not defined $content or $checksum ne &Digest::SHA::sha256_hex($content)) { } |
|
79
|
3 |
2 |
unless (defined $archive) |
|
83
|
1 |
1 |
if (defined $older_fh) { } |
|
95
|
5 |
4 |
if (defined $older_fh) { } |
|
106
|
2 |
34 |
if (defined $layers and $layers =~ /<:/) { } |
|
116
|
1 |
35 |
if ($@) |
|
127
|
32 |
3 |
if ($need_commit) |
|
135
|
2 |
78 |
unless my $fh = "IO::File"->new |
|
136
|
9 |
69 |
unless $fh->open($filename, "<:raw") |
|
138
|
35 |
34 |
if ($offset > 0) |
|
153
|
47 |
3 |
if $offset_start < 0 |
|
163
|
8 |
30 |
if not defined $read or $read <= 0 |
|
166
|
42 |
8 |
if ($offset_start == $offset) { } |
|
176
|
1 |
44 |
unless (defined $abs_filename) |
|
182
|
40 |
4 |
if (defined $abs_stat[1] and (stat $log_filename)[1] == $abs_stat[1]) |
|
189
|
39 |
5 |
unless (defined $status_filename) |
|
193
|
38 |
6 |
if (not defined $status_dir) { } |
|
|
1 |
5 |
elsif ($status_dir eq '') { } |
|
198
|
5 |
39 |
unless (-d $status_dir) |
|
203
|
2 |
42 |
unless (defined $status_fh) |
|
211
|
29 |
13 |
if (defined $status_line) |
|
212
|
1 |
28 |
unless ($status_line =~ /^File \[(.+?)\] (?:archive \[(.+)\] )?offset \[(\d+)\] checksum \[([0-9a-z]+)\]\n/) |
|
220
|
1 |
27 |
if ($check_filename ne $log_filename) |
|
234
|
70 |
0 |
if defined $status_fh |
|
235
|
15 |
55 |
defined *$self->{'archive'} ? : |
|
243
|
1 |
2067 |
if (length $chunk >= $CHECK_LENGTH) |
|
265
|
1 |
73 |
if ($data_length > $CHECK_LENGTH) |
|
279
|
27 |
9 |
if (defined $start) |
|
286
|
30 |
13 |
if ($t eq '.') { } |
|
287
|
17 |
13 |
if ($older_newer eq 'newer') { } |
|
293
|
4 |
9 |
if ($older_newer eq 'newer') { } |
|
301
|
112 |
13 |
unless not defined $start_num |
|
305
|
17 |
26 |
if ($older_newer eq "newer" and -f $filename) |
|
310
|
6 |
34 |
unless (defined $fh) |
|
313
|
14 |
20 |
if (defined $checksum) { } |
|
314
|
9 |
5 |
if (defined $content and $checksum eq &Digest::SHA::sha256_hex($content)) |
|
319
|
6 |
14 |
$a eq '' ? : |
|
330
|
34 |
1 |
if defined $status_fh |
|
336
|
2082 |
1 |
if (defined $fh) { } |
|
341
|
37 |
2068 |
unless (defined $$buffer_ref) |
|
347
|
23 |
14 |
defined *$self->{'archive'} ? : |
|
348
|
4 |
33 |
if (not @file_stat or join($", @fh_stat[0, 1]) ne join($", @file_stat[0, 1])) { } |
|
|
21 |
12 |
elsif (defined *$self->{'archive'}) { } |
|
354
|
1 |
3 |
unless (defined $older_fh) |
|
370
|
1 |
20 |
unless (defined $newer_fh) |
|
400
|
1 |
58 |
if (*$self->{'opts'}{'autocommit'} == 2) |
|
411
|
7 |
2017 |
unless (defined $l) |
|
417
|
1 |
6 |
if (*$self->{'opts'}{'autocommit'} == 2) |
|
432
|
31 |
4 |
if (*$self->{'opts'}{'autocommit'}) |
|
437
|
34 |
1 |
if defined $fh |
|
441
|
46 |
1 |
if (ref $_[0]) { } |
|
452
|
5 |
24 |
if wantarray |
|
463
|
15 |
30 |
if defined *$self->{'_fh'} |