| blib/lib/Config/Any/Log4perl.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 6 | 10 | 60.0 |
| line | true | false | branch |
|---|---|---|---|
| 34 | 0 | 3 | unless open FILE, $file |
| 37 | 0 | 3 | unless grep /\S/, @lines |
| 45 | 0 | 15 | unless /\S/ |
| 57 | 15 | 0 | if (my($key, $val) = /(\S+?)\s*=\s*(.*)/) |
| 64 | 2 | 1 | exists $$args{'config_name'} ? : |