| blib/lib/Basset/Logger.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 28 | 30 | 93.3 |
| line | true | false | branch |
|---|---|---|---|
| 216 | 14 | 18 | if (defined $file) { } |
| 217 | 12 | 2 | if (not ref $file) { } |
| 1 | 1 | elsif (ref $file eq 'GLOB') { } | |
| 219 | 0 | 12 | unless open $handle, '>>' . $file |
| 259 | 1 | 10 | unless my $note = shift() |
| 261 | 1 | 9 | if $self->closed |
| 263 | 6 | 3 | ref $note ? : |
| 265 | 1 | 8 | unless my $handle = $self->handle |
| 269 | 7 | 1 | if (@$args) |
| 271 | 4 | 3 | if ($self->stamped) |
| 277 | 3 | 7 | $printed++ ? : |
| 278 | 9 | 1 | if defined $value |
| 423 | 5 | 4 | unless my $handle = $self->handle |
| 425 | 0 | 4 | unless CORE::close $handle |
| 462 | 4 | 3 | unless $self->closed |