line |
true |
false |
branch |
122
|
0 |
0 |
unless my $fh = 'IO::File'->new($file, 'w+') |
149
|
0 |
4 |
unless $hash{'FILE'} |
150
|
0 |
4 |
unless $hash{'USER'} |
152
|
4 |
0 |
unless (-e $hash{'FILE'}) |
153
|
0 |
4 |
if $@ or not -w $hash{'FILE'} |
156
|
4 |
0 |
if $hash{'LEVEL'} |
157
|
4 |
0 |
if $hash{'CALLER'} |
159
|
4 |
0 |
if ($hash{'CLEAR'}) |
162
|
0 |
4 |
unless $logfile |
176
|
0 |
18 |
unless $logfile |
180
|
18 |
0 |
if @_ |
185
|
18 |
0 |
if ($CALLER) |
192
|
0 |
18 |
if $VERBOSE and $level <= $LOG_LEVEL_INFO |
194
|
3 |
15 |
if $level > $LOG_LEVEL |
196
|
1 |
14 |
if $firstpass |
219
|
4 |
0 |
if $LOG_LEVEL >= $LOG_LEVEL_ERROR |
220
|
3 |
1 |
if $LOG_LEVEL >= $LOG_LEVEL_WARN |
221
|
2 |
2 |
if $LOG_LEVEL >= $LOG_LEVEL_INFO |
222
|
1 |
3 |
if $LOG_LEVEL >= $LOG_LEVEL_DEBUG |