File Coverage

blib/lib/Data/Log/Shared.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch	4	4	100.0
condition	2	2	100.0
subroutine	3	3	100.0
pod	0	1	0.0
total	25	26	96.1

package Data::Log::Shared;
use strict;
use warnings;
our $VERSION = '0.02';
require XSLoader;
XSLoader::load('Data::Log::Shared', $VERSION);

sub each_entry {
    my ($self, $cb, $from) = @_;
    $from //= 0;
    my $trunc = $self->truncation;
    $from = $trunc if $from < $trunc;
    while (1) {
        my ($data, $next) = $self->read_entry($from);
        last unless defined $data;
        $cb->($data, $from);
        $from = $next;
    }
    return $from;
}

1;
__END__