| line |
true |
false |
branch |
|
49
|
39 |
1 |
if (@_) |
|
50
|
8 |
31 |
unless $self->open(@_) |
|
62
|
7 |
32 |
if (@_ and ref $_[-1] eq 'HASH') |
|
65
|
35 |
4 |
unless (exists *$self->{'opts'}{'autocommit'}) |
|
70
|
4 |
35 |
unless defined $offset |
|
73
|
11 |
24 |
unless (defined $checksum) |
|
77
|
8 |
27 |
defined $archive ? : |
|
78
|
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)) { } |
|
79
|
2 |
2 |
unless (defined $archive) |
|
83
|
1 |
1 |
if (defined $older_fh) { } |
|
95
|
5 |
4 |
if (defined $older_fh) { } |
|
106
|
2 |
30 |
if (defined $layers and $layers =~ /<:/) { } |
|
116
|
1 |
31 |
if ($@) |
|
127
|
28 |
3 |
if ($need_commit) |
|
135
|
2 |
73 |
unless my $fh = 'IO::File'->new |
|
136
|
8 |
65 |
unless $fh->open($filename, '<:raw') |
|
138
|
33 |
32 |
if ($offset > 0) |
|
153
|
43 |
3 |
if $offset_start < 0 |
|
163
|
8 |
28 |
if not defined $read or $read <= 0 |
|
166
|
38 |
8 |
if ($offset_start == $offset) { } |
|
176
|
1 |
38 |
unless (defined $abs_filename) |
|
182
|
35 |
3 |
if (defined $abs_stat[1] and (stat $log_filename)[1] == $abs_stat[1]) |
|
189
|
35 |
3 |
unless (defined $status_filename) |
|
193
|
35 |
3 |
if (not defined $status_dir) { } |
|
|
1 |
2 |
elsif ($status_dir eq '') { } |
|
198
|
4 |
34 |
unless (-d $status_dir) |
|
203
|
1 |
37 |
unless (defined $status_fh) |
|
211
|
26 |
11 |
if (defined $status_line) |
|
212
|
1 |
25 |
unless ($status_line =~ /^File \[(.+?)\] (?:archive \[(.+)\] )?offset \[(\d+)\] checksum \[([0-9a-z]+)\]\n/) |
|
220
|
1 |
24 |
if ($check_filename ne $log_filename) |
|
235
|
15 |
47 |
defined *$self->{'archive'} ? : |
|
243
|
1 |
2055 |
if (length $chunk >= $CHECK_LENGTH) |
|
265
|
1 |
65 |
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') { } |
|
300
|
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
|
30 |
1 |
if defined $status_fh |
|
336
|
2066 |
1 |
if (defined $fh) { } |
|
341
|
33 |
2056 |
unless (defined $$buffer_ref) |
|
347
|
23 |
10 |
defined *$self->{'archive'} ? : |
|
348
|
4 |
29 |
if (not @file_stat or "@fh_stat[0, 1]" ne "@file_stat[0, 1]") { } |
|
|
21 |
8 |
elsif (defined *$self->{'archive'}) { } |
|
354
|
1 |
3 |
unless (defined $older_fh) |
|
370
|
1 |
20 |
unless (defined $newer_fh) |
|
395
|
1 |
42 |
if (*$self->{'opts'}{'autocommit'} == 2) |
|
406
|
7 |
2017 |
unless (defined $l) |
|
412
|
1 |
6 |
if (*$self->{'opts'}{'autocommit'} == 2) |
|
427
|
27 |
4 |
if (*$self->{'opts'}{'autocommit'}) |
|
432
|
30 |
1 |
if defined $fh |
|
436
|
40 |
1 |
if (ref $_[0]) { } |
|
447
|
5 |
24 |
if wantarray |
|
458
|
11 |
28 |
if defined *$self->{'_fh'} |