| blib/lib/App/hopen/Util/XML/FromPerl.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 13 | 28 | 46.4 |
| line | true | false | branch |
|---|---|---|---|
| 39 | 0 | 0 | unless (warnings::enabled($_)) |
| 45 | 0 | 0 | if $should_emit |
| 61 | 0 | 5 | unless (defined $data) |
| 67 | 5 | 0 | if (ref $data eq "ARRAY") |
| 73 | 1 | 4 | if (ref $data eq 'ARRAY' and $data->[0] eq '!--') { } |
| 4 | 0 | elsif (ref $data eq 'ARRAY') { } | |
| 74 | 0 | 1 | defined $, ? : |
| 79 | 1 | 0 | if defined $data->[$_] |
| 0 | 1 | $has_attrs ? : | |
| 87 | 4 | 0 | if ($has_attrs) |
| 89 | 4 | 0 | unless tied %$one |
| 91 | 5 | 0 | if (defined(my $v = $one->{$_})) |
| 98 | 4 | 0 | $has_attrs ? : |
| 129 | 0 | 1 | unless (defined $data) |