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'} |