| line |
true |
false |
branch |
|
29
|
16 |
149 |
if $self->level == -1 |
|
31
|
9 |
140 |
if defined $ENV{'LS_LEVEL'} |
|
33
|
149 |
0 |
if ($sub =~ /^_(\d)$/) |
|
34
|
32 |
117 |
if (defined $self->_log_only) |
|
35
|
28 |
4 |
if $1 != $self->_log_only |
|
37
|
15 |
106 |
if $1 > $self->level |
|
57
|
12 |
39 |
if (defined $args{'level'}) { } |
|
61
|
2 |
37 |
defined $ENV{'LS_LEVEL'} ? : |
|
65
|
5 |
46 |
if ($args{'file'}) |
|
69
|
15 |
36 |
defined $args{'print'} ? : |
|
80
|
3 |
48 |
if (defined $args{'display'}) |
|
93
|
39 |
328 |
if defined $ENV{'LS_LEVEL'} |
|
96
|
2 |
365 |
if (defined $level and $level =~ /^-1$/) { } |
|
|
69 |
296 |
elsif (defined $level) { } |
|
102
|
4 |
65 |
if ($level =~ /^=/) |
|
106
|
68 |
1 |
if ($level =~ /^\d$/ and defined $levels{$level}) { } |
|
113
|
4 |
65 |
if ($log_only) { } |
|
126
|
1 |
26 |
unless (defined $file) |
|
129
|
7 |
19 |
if ($file =~ /^0$/) |
|
130
|
7 |
0 |
if (tell $self->{'fh'} != -1) |
|
137
|
8 |
11 |
if (defined $file and $self->{'file'} and $file ne $self->{'file'}) |
|
140
|
5 |
14 |
unless defined $mode |
|
141
|
8 |
11 |
$mode =~ /^a/ ? : |
|
143
|
0 |
19 |
unless open $self->{'fh'}, $op, $file |
|
150
|
35 |
269 |
if defined $name |
|
164
|
118 |
372 |
if defined $lvl |
|
175
|
568 |
64 |
if (@_ == 1) { } |
|
182
|
568 |
64 |
if (defined $tag) |
|
183
|
6 |
562 |
if ($tag =~ /^0$/) |
|
189
|
4 |
558 |
if ($tag =~ /^1$/) |
|
208
|
1 |
266 |
unless (defined $valid{$_}) |
|
218
|
54 |
113 |
if defined $_[1] |
|
224
|
28 |
1 |
if defined $self->name |
|
231
|
2 |
112 |
if (defined $disp) |
|
232
|
1 |
1 |
if ($disp =~ /^0$/) { } |
|
258
|
1 |
110 |
unless (grep {$label eq $_;} @$subs) |
|
265
|
96 |
14 |
$msg ? : |
|
268
|
2 |
108 |
if defined $self->custom_display |
|
269
|
50 |
60 |
if $self->display('time') |
|
270
|
94 |
16 |
if $self->display('label') |
|
271
|
69 |
41 |
if $self->display('name') and $self->name |
|
272
|
3 |
107 |
if $self->display('pid') |
|
273
|
3 |
107 |
if $self->display('proc') |
|
274
|
99 |
11 |
if $log_entry |
|
277
|
63 |
47 |
unless $self->print |
|
279
|
45 |
2 |
if ($self->{'fh'}) { } |
|
291
|
1 |
491 |
if (ref $labels eq 'ARRAY') |
|
292
|
0 |
1 |
if @$labels != 8 |
|
297
|
52 |
440 |
if (defined $labels and $labels == 0 or not defined $self->{'labels'}) |
|
315
|
65 |
185 |
if (defined $level and $level == -1) { } |
|
319
|
4 |
181 |
if defined $level |