| blib/lib/Devel/PerlySense/Util.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 9 | 12 | 75.0 |
| line | true | false | branch |
|---|---|---|---|
| 55 | 5 | 4180685 | unless (exists $hArg{$param}) |
| 77 | 2 | 18 | unless open my $fh, '<', $file |
| 95 | 0 | 5 | unless open my $fh, '>', $file |
| 96 | 0 | 5 | unless print $fh $text |
| 117 | 11 | 332 | if ($dir eq '..') { } |
| 149 | 0 | 8 | unless $rhParamEnv->{$1} |