| blib/lib/XML/Conf.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 16 | 26 | 61.5 |
| line | true | false | branch |
|---|---|---|---|
| 18 | 0 | 4 | if (ref $filename eq 'SCALAR') { } |
| 0 | 4 | elsif ($filename =~ /^\s*\<.*\>\s*$/s) { } | |
| 23 | 3 | 1 | if not $filename =~ m[^[/\.]] and -e "./$filename" |
| 24 | 0 | 4 | unless open I, $filename |
| 30 | 1 | 3 | $opts{'case'} ? : |
| 32 | 4 | 0 | if $case |
| 36 | 0 | 4 | if ($sig) |
| 48 | 44 | 20 | unless UNIVERSAL::isa($tree, 'HASH') |
| 65 | 1 | 7 | wantarray ? : |
| 94 | 0 | 1 | unless $fn |
| 117 | 0 | 1 | unless $fn |
| 124 | 0 | 2 | unless open O, ">$name" |
| 137 | 0 | 0 | if (UNIVERSAL::isa($val, 'HASH') and not tied %$val) |