| line |
true |
false |
branch |
|
27
|
12 |
2 |
if (defined $new_level) |
|
28
|
2 |
10 |
if ($new_level < 0 or $new_level > 9) |
|
38
|
4 |
32 |
unless defined $level and defined $message |
|
39
|
5 |
27 |
unless $level <= $self->{'level'} |
|
45
|
2 |
25 |
unless print {$fh;} $log_line |
|
50
|
0 |
6 |
unless defined $level and defined $format |
|
51
|
0 |
6 |
unless $level <= $self->{'level'} |
|
57
|
4 |
2 |
if (defined $path) { } |
|
58
|
0 |
4 |
if ($self->{'fh'} and $self->{'fh'} ne *STDERR) |
|
59
|
0 |
0 |
unless close $self->{'fh'} |
|
61
|
2 |
2 |
unless open my $fh, ">>", $path |
|
64
|
2 |
0 |
if ($self->{'fh'} and $self->{'fh'} ne *STDERR) |
|
65
|
0 |
2 |
unless close $self->{'fh'} |
|
69
|
4 |
2 |
$self->{'fh'} ? : |
|
81
|
0 |
4 |
unless defined $message |
|
87
|
0 |
6 |
unless defined $message |
|
93
|
0 |
6 |
unless defined $message |
|
99
|
0 |
4 |
unless defined $message |