| line |
true |
false |
branch |
|
50
|
39 |
1 |
if (@_) |
|
51
|
8 |
31 |
unless $self->open(@_) |
|
63
|
7 |
32 |
if (@_ and ref $_[-1] eq 'HASH') |
|
66
|
35 |
4 |
unless (exists *$self->{'opts'}{'autocommit'}) |
|
71
|
4 |
35 |
unless defined $offset |
|
74
|
11 |
24 |
unless (defined $checksum) |
|
78
|
8 |
27 |
defined $archive ? : |
|
79
|
4 |
31 |
if (not defined $fh) { } |
|
|
9 |
22 |
elsif (not defined $checksum) { } |
|
|
9 |
13 |
elsif (not defined $content or $checksum ne &Digest::SHA::sha256_hex($content)) { } |
|
80
|
2 |
2 |
unless (defined $archive) |
|
84
|
1 |
1 |
if (defined $older_fh) { } |
|
96
|
5 |
4 |
if (defined $older_fh) { } |
|
107
|
2 |
30 |
if (defined $layers and $layers =~ /<:/) { } |
|
117
|
1 |
31 |
if ($@) |
|
128
|
28 |
3 |
if ($need_commit) |
|
136
|
2 |
73 |
unless my $fh = 'IO::File'->new |
|
137
|
8 |
65 |
unless $fh->open($filename, '<:raw') |
|
139
|
33 |
32 |
if ($offset > 0) |
|
154
|
43 |
3 |
if $offset_start < 0 |
|
164
|
8 |
28 |
if not defined $read or $read <= 0 |
|
167
|
38 |
8 |
if ($offset_start == $offset) { } |
|
177
|
1 |
38 |
unless (defined $abs_filename) |
|
183
|
35 |
3 |
if (defined $abs_stat[1] and (stat $log_filename)[1] == $abs_stat[1]) |
|
190
|
35 |
3 |
unless (defined $status_filename) |
|
194
|
35 |
3 |
if (not defined $status_dir) { } |
|
|
1 |
2 |
elsif ($status_dir eq '') { } |
|
199
|
4 |
34 |
unless (-d $status_dir) |
|
204
|
1 |
37 |
unless (defined $status_fh) |
|
212
|
26 |
11 |
if (defined $status_line) |
|
213
|
1 |
25 |
unless ($status_line =~ /^File \[(.+?)\] (?:archive \[(.+)\] )?offset \[(\d+)\] checksum \[([0-9a-z]+)\]\n/) |
|
221
|
1 |
24 |
if ($check_filename ne $log_filename) |
|
236
|
15 |
47 |
defined *$self->{'archive'} ? : |
|
244
|
1 |
2055 |
if (length $chunk >= $CHECK_LENGTH) |
|
266
|
1 |
65 |
if ($data_length > $CHECK_LENGTH) |
|
280
|
27 |
9 |
if (defined $start) |
|
287
|
30 |
13 |
if ($t eq '.') { } |
|
288
|
17 |
13 |
if ($older_newer eq 'newer') { } |
|
294
|
4 |
9 |
if ($older_newer eq 'newer') { } |
|
302
|
112 |
13 |
unless not defined $start_num |
|
306
|
17 |
26 |
if ($older_newer eq 'newer' and -f $filename) |
|
311
|
6 |
34 |
unless (defined $fh) |
|
314
|
14 |
20 |
if (defined $checksum) { } |
|
315
|
9 |
5 |
if (defined $content and $checksum eq &Digest::SHA::sha256_hex($content)) |
|
320
|
6 |
14 |
$a eq '' ? : |
|
331
|
30 |
1 |
if defined $status_fh |
|
337
|
2066 |
1 |
if (defined $fh) { } |
|
342
|
33 |
2056 |
unless (defined $$buffer_ref) |
|
348
|
23 |
10 |
defined *$self->{'archive'} ? : |
|
349
|
4 |
29 |
if (not @file_stat or join($", @fh_stat[0, 1]) ne join($", @file_stat[0, 1])) { } |
|
|
21 |
8 |
elsif (defined *$self->{'archive'}) { } |
|
355
|
1 |
3 |
unless (defined $older_fh) |
|
371
|
1 |
20 |
unless (defined $newer_fh) |
|
396
|
1 |
42 |
if (*$self->{'opts'}{'autocommit'} == 2) |
|
407
|
7 |
2017 |
unless (defined $l) |
|
413
|
1 |
6 |
if (*$self->{'opts'}{'autocommit'} == 2) |
|
428
|
27 |
4 |
if (*$self->{'opts'}{'autocommit'}) |
|
433
|
30 |
1 |
if defined $fh |
|
437
|
40 |
1 |
if (ref $_[0]) { } |
|
448
|
5 |
24 |
if wantarray |
|
459
|
11 |
28 |
if defined *$self->{'_fh'} |