Branch Coverage

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)