Branch Coverage

blib/lib/Log/Log4perl/Appender/Limit.pm
Criterion Covered Total %
branch 16 28 57.1


line true false branch
49 0 8 if (defined $self->{'persistent'})
66 22 10 if (defined $self->{'max_until_discarded'} and scalar @{$self->{'buffer'};} >= $self->{'max_until_discarded'} - 1)
73 2 30 if (defined $self->{'max_until_flushed'} and scalar @{$self->{'buffer'};} >= $self->{'max_until_flushed'} - 1)
78 23 7 if (not $flush and (exists $self->{'sent_last'} and $self->{'sent_last'} + $self->{'block_period'} > time))
84 20 3 if $discard
92 3 0 if $self->{'accumulate'}
94 0 3 if $self->{'persistent'}
113 0 9 if $self->{'persistent'}
121 0 8 unless (exists $self->{'appender'})
128 0 8 unless (defined $appender)
145 0 0 unless store($pdata, $self->{'persistent'})
153 0 0 if (-f $self->{'persistent'})
155 0 0 unless my $pdata = retrieve($self->{'persistent'})
171 2 12 if ($self->{'appender_method_on_flush'})