| line |
true |
false |
branch |
|
14
|
13 |
0 |
unless $ENV{'DIR_WRITE_ROTATE_DEBUG'} |
|
22
|
7 |
1 |
if (defined(my $v = delete $args{'path'})) { } |
|
27
|
1 |
6 |
if (defined(my $v = delete $args{'filename_pattern'})) { } |
|
32
|
3 |
4 |
if (defined(my $v = delete $args{'filename_sub'})) |
|
35
|
1 |
6 |
if (defined(my $v = delete $args{'max_size'})) |
|
38
|
1 |
6 |
if (defined(my $v = delete $args{'max_files'})) |
|
41
|
1 |
6 |
if (defined(my $v = delete $args{'max_age'})) |
|
44
|
3 |
4 |
if (defined(my $v = delete $args{'rotate_probability'})) { } |
|
49
|
1 |
6 |
if (keys %args) |
|
62
|
12 |
9 |
if ($self->{'filename_sub'}) |
|
86
|
2 |
5 |
unless (defined $libmagic) |
|
87
|
0 |
2 |
if (eval {
do {
require File::LibMagic;
require Media::Type::Simple;
1
}
}) { } |
|
94
|
7 |
0 |
unless $libmagic |
|
96
|
0 |
0 |
unless $type |
|
99
|
0 |
0 |
if $ext |
|
106
|
7 |
49 |
ref $vars{$1} eq 'CODE' ? : |
|
|
56 |
0 |
defined $vars{$1} ? : |
|
120
|
12 |
21 |
if (-e $filename) |
|
126
|
0 |
21 |
unless sysopen $fh, $filename, 193 |
|
130
|
0 |
21 |
unless print $fh $content |
|
131
|
0 |
21 |
unless close $fh |
|
132
|
19 |
2 |
if rand() < $self->{'rotate_probability'} |
|
142
|
4 |
10 |
unless defined $ms or defined $mf or defined $ma |
|
147
|
0 |
15 |
unless opendir my $dh, $path |
|
150
|
30 |
44 |
if $e eq '.' or $e eq '..' |
|
159
|
0 |
3 |
unless $Dir::Write::Rotate::a->{'age'} <=> $Dir::Write::Rotate::b->{'age'} |
|
162
|
2 |
13 |
if (defined $mf and @entries > $mf) |
|
166
|
0 |
2 |
unless unlink $fpath |
|
171
|
5 |
10 |
if (defined $ma) |
|
174
|
1 |
11 |
if ($_->{'age'} > $ma) |
|
178
|
0 |
4 |
unless unlink $fpath |
|
187
|
5 |
10 |
if (defined $ms) |
|
192
|
1 |
14 |
if ($tot_size > $ms) |
|
196
|
0 |
1 |
unless unlink $fpath |