Branch Coverage: blib/lib/Log/Simple.pm

# Branch Coverage

File: | blib/lib/Log/Simple.pm
Coverage: | 97.6%

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'}) { }