Branch Coverage

blib/lib/Logfile/Tail.pm
Criterion Covered Total %
branch 122 122 100.0


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