| line |
true |
false |
branch |
|
48
|
0 |
13 |
unless defined $args{'File'} |
|
70
|
1 |
12 |
if $args{'Signal'} |
|
73
|
0 |
13 |
if $args{'Signal'} and $args{'Post'} |
|
76
|
0 |
13 |
unless ref $$self{'Signal'} eq 'CODE' |
|
79
|
0 |
13 |
unless ref $$self{'Pre'} eq 'CODE' |
|
82
|
0 |
13 |
unless ref $$self{'Post'} eq 'CODE' |
|
86
|
1 |
12 |
if (not $args{'Gzip'}) { } |
|
87
|
1 |
0 |
if (_have_compress_zlib()) { } |
|
93
|
11 |
1 |
if ($args{'Gzip'} eq 'no') { } |
|
103
|
1 |
12 |
if (defined $args{'Dir'}) { } |
|
106
|
1 |
0 |
unless -d $$self{'Dir'} |
|
113
|
1 |
12 |
if (defined $$self{'Dir'}) |
|
114
|
0 |
1 |
unless -w $$self{'Dir'} |
|
116
|
0 |
1 |
unless -x $$self{'Dir'} |
|
121
|
12 |
1 |
if ($$self{'Flock'} eq 'yes') { } |
|
123
|
0 |
12 |
unless defined $$self{'Fh'} |
|
129
|
0 |
1 |
unless defined $$self{'Fh'} |
|
142
|
0 |
39 |
unless defined $$self{'Fh'} |
|
147
|
6 |
33 |
$$self{'Gzip'} ? : |
|
150
|
39 |
0 |
if $$self{'Pre'} |
|
151
|
0 |
39 |
if $@ |
|
154
|
3 |
36 |
defined $$self{'Dir'} ? : |
|
155
|
3 |
36 |
if defined $$self{'Dir'} |
|
161
|
39 |
39 |
if (-r $prev and -f $prev) |
|
162
|
0 |
39 |
unless move($prev, $next) |
|
172
|
36 |
3 |
if ($$self{'Persist'} eq 'yes') |
|
174
|
0 |
36 |
unless chmod $stat[2], $next |
|
175
|
0 |
36 |
unless utime $stat[8], $stat[9], $next |
|
176
|
0 |
36 |
unless chown $stat[4], $stat[5], $next |
|
180
|
36 |
3 |
if ($$self{'Flock'} eq 'yes') { } |
|
182
|
0 |
36 |
unless truncate $curr, 0 |
|
185
|
0 |
3 |
unless open IN, "+>$$self{'File'}" |
|
189
|
6 |
33 |
if ($$self{'Gzip'} and $$self{'Gzip'} eq 'lib') { } |
|
|
0 |
33 |
elsif ($$self{'Gzip'}) { } |
|
196
|
0 |
0 |
unless 0 == system($$self{'Gzip'}, $Logfile::Rotate::GZIP_FLAG, $next) |
|
201
|
39 |
0 |
if $$self{'Signal'} |
|
202
|
0 |
39 |
if $@ |
|
205
|
39 |
0 |
if $$self{'Post'} |
|
206
|
0 |
39 |
if $@ |
|
214
|
0 |
4 |
unless $$self{'Fh'} |
|
222
|
0 |
7 |
if ($@) |
|
234
|
0 |
6 |
unless $in |
|
236
|
0 |
6 |
unless _have_compress_zlib() |
|
239
|
0 |
6 |
unless $fhw = 'IO::File'->new($in) |
|
241
|
0 |
6 |
unless my $gz = Compress::Zlib::gzopen($out, 'wb') |
|
248
|
0 |
6 |
unless unlink $in |