Branch Coverage

blib/lib/Log/Dispatch/FileRotate.pm
Criterion Covered Total %
branch 61 116 52.5


line true false branch
19 8 0 if ($self->{'LDF'})
38 9 0 unless (defined $self->{'timer'})
50 6 3 if (defined $p{'size'})
56 0 9 unless ($size =~ /^\d+$/ and $size < $two_gig and $size > 0)
66 0 7 unless (defined $self->{'max'} and $self->{'max'} =~ /^\d+$/ and $self->{'max'} > 0)
82 1 8 if (defined $p{'TZ'})
87 0 1 if ('version'->parse(DateManipVersion()) < 'version'->parse('6.0')) { }
96 7 2 if (defined $p{'DatePattern'})
100 0 9 $p{'check_both'} ? :
171 0 7 if (ref $arg eq 'ARRAY') { }
7 0 elsif (not ref $arg) { }
185 7 0 if ($pat =~ /^yyyy/i)
190 0 7 unless (defined $pat)
212 0 228 unless (defined $mutex)
240 0 228 if (ref $self->{'user_constraint'} eq 'CODE')
245 0 0 unless (eval {
255 0 228 unless ($mutex->lock)
266 228 0 defined $finode ? :
272 0 228 if (not defined $finode or $inode != $finode) { }
281 0 228 $size >= $max_size ? :
283 0 227 if ($in_time_mode and $time_to_rotate or not $in_time_mode and $rotate_by_size or $rotate_by_size and $check_both or $user_rotation)
296 1 227 if ($have_to_rotate)
307 0 1 if (ref $self->{'post_rotate'} eq 'CODE')
313 228 0 if ($hold_lock)
331 5 1 if ($idx)
336 1 5 if (-f $filename)
341 0 6 unless (eval {
384 3 225 if (exists $self->{'params'}{'permissions'})
418 228 0 if ($mode)
425 7 221 $self->{'new'} ? :
439 0 228 unless (defined $abs and $abs)
447 7 221 if ($self->{'new'}) { }
1 220 elsif ($abs <= $tm) { }
449 0 7 if ($ftime <= $abs)
459 0 7 unless (defined $abs and $abs)
468 0 1 unless (defined $abs and $abs)
477 228 0 if ($abs)
489 228 0 wantarray ? :
513 0 7 if ($pat =~ /^0:0:0:0:0/) { }
7 0 elsif ($pat =~ /^0:0:0:0/) { }
0 0 elsif ($pat =~ /^0:0:0:/) { }
0 0 elsif ($pat =~ /^0:0:/) { }
0 0 elsif ($pat =~ /^0:/) { }
516 0 0 if $initial
521 7 0 if $initial
526 0 0 if $initial
531 0 0 if $initial
536 0 0 if $initial
547 0 0 if $initial
560 0 7 unless (scalar @dates >= 2)
563 0 0 if ($initial) { }
589 7 0 if ($initial) { }
596 7 0 if ($before)
610 0 7 unless @dates
631 8 7 if (defined $self->{'dates'}{$pat})
633 8 9 if $self->{'dates'}{$pat}[0] >= $now
640 8 7 defined $self->{'dates'}{$pat} ? :
655 2477 0 unless $self->{'debug'}