| line |
true |
false |
branch |
|
25
|
4 |
0 |
unless ($args->{'charset'}) |
|
27
|
0 |
4 |
$lc =~ /\.([\w-]+)/ ? : |
|
35
|
0 |
4 |
unless $self->{'to'} = $args->{'to'} |
|
47
|
0 |
0 |
$format eq 'LONG' ? : |
|
|
4 |
0 |
ref $format eq 'CODE' ? : |
|
57
|
0 |
4 |
unless $self->SUPER::close |
|
64
|
0 |
4 |
$self->{'LRDF_filename'} ? : |
|
|
0 |
4 |
ref $to eq 'CODE' ? : |
|
78
|
5 |
4 |
if $_[0]{'LRDF_output'} |
|
84
|
0 |
4 |
unless (ref $to) |
|
87
|
0 |
0 |
$self->{'replace'} ? : |
|
89
|
0 |
0 |
unless my $f = $self->{'LRDF_output'} = 'IO::File'->new($to, $binmode) |
|
96
|
0 |
4 |
if (ref $to eq 'CODE') |
|
114
|
0 |
0 |
ref $to eq 'CODE' ? : |
|
117
|
0 |
0 |
if ref $log |
|
121
|
0 |
0 |
ref $old eq 'CODE' ? : |
|
124
|
0 |
0 |
unless rename $log, $oldfn |
|
129
|
0 |
0 |
unless my $f = $self->{'LRDF_output'} = $logs->{$log} = 'IO::File'->new($log, '>>') |