line | % | coverage | branch |
39 | 100 | T | F | if defined $ENV{'LS_LEVEL'} |
41 | 100 | T | F | if ($sub =~ /^_(\d)$/) |
42 | 100 | T | F | if $1 > $self->level |
44 | 100 | T | F | if $self->_level_value($sub) > $self->level |
64 | 100 | T | F | if (defined $args{'level'}) { } |
68 | 100 | T | F | defined $ENV{'LS_LEVEL'} ? : |
72 | 100 | T | F | if ($args{'file'}) |
76 | 100 | T | F | defined $args{'print'} ? : |
87 | 100 | T | F | if (defined $args{'display'}) |
101 | 100 | T | F | if defined $ENV{'LS_LEVEL'} |
104 | 100 | T | F | if (defined $level) |
105 | 100 | T | F | if ($level =~ /^\d$/ and defined $levels{$level}) { } |
| 100 | T | F | elsif ($level =~ /^\w{3}/ and defined($lvl = $self->_translate($level))) { } |
121 | 100 | T | F | unless (defined $file) |
124 | 100 | T | F | if ($file =~ /^0$/) |
125 | 50 | T | F | if (tell $self->{'fh'} != -1) |
132 | 100 | T | F | if (defined $file and $self->{'file'} and $file ne $self->{'file'}) |
135 | 100 | T | F | unless defined $mode |
136 | 100 | T | F | $mode =~ /^a/ ? : |
138 | 50 | T | F | unless open $self->{'fh'}, $op, $file |
145 | 100 | T | F | if defined $name |
168 | 100 | T | F | if (defined $want and $want eq 'names') |
182 | 100 | T | F | if (@_ == 1) { } |
189 | 100 | T | F | if (defined $tag) |
190 | 100 | T | F | if ($tag =~ /^0$/) |
196 | 100 | T | F | if ($tag =~ /^1$/) |
215 | 100 | T | F | unless (defined $valid{$_}) |
226 | 100 | T | F | if defined $_[1] |
238 | 100 | T | F | if ($level =~ /^_(\d)$/) { } |
250 | 100 | T | F | if ($label =~ /^_?(\d)$/) { } |
268 | 100 | T | F | unless (grep {$label eq $_;} @$subs) |
272 | 100 | T | F | if ($label =~ /^_(\d)$/) |
276 | 100 | T | F | $msg ? : |
279 | 100 | T | F | if $self->display('time') |
280 | 100 | T | F | if $self->display('label') |
281 | 100 | T | F | if $self->display('name') and $self->name |
282 | 100 | T | F | if $self->display('pid') |
283 | 100 | T | F | if $self->display('proc') |
284 | 100 | T | F | if $log_entry |
287 | 100 | T | F | unless $self->print |
289 | 100 | T | F | if ($self->{'fh'}) { } |