| blib/lib/Devel/PerlLog.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 2 | 22 | 9.0 |
| line | true | false | branch |
|---|---|---|---|
| 18 | 0 | 1 | if ($log_path ne 'STDOUT') |
| 19 | 0 | 0 | unless flock $log_handle, 2 |
| 21 | 0 | 0 | unless seek $log_handle, 0, 2 |
| 25 | 0 | 1 | if ($log_path ne 'STDOUT') |
| 26 | 0 | 0 | unless flock $log_handle, 8 |
| 34 | 0 | 0 | if ($arg =~ m[[\\\/\.]]) { } |
| 0 | 0 | elsif ($arg =~ /^(all)$/) { } | |
| 35 | 0 | 0 | if $log_path |
| 38 | 0 | 0 | unless open $log_handle, '>>', $log_path |
| 42 | 0 | 0 | unless $group{$arg} |
| 54 | 0 | 0 | unless $class->can($method) |