| lib/Template/Plugin/XML.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 5 | 9 | 55.5 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 20 | 5 | 0 | 5 | @_ && ref $_[-1] eq 'HASH' |
| 47 | 9 | 1 | 0 | $$self{'libxml'} &&= do { return $self->throw('XML::LibXML is not available') unless $LIBXML; my $parser = 'XML::LibXML'->new; my($param, $value, $method); while (($param, $value) = each %$params) { $self->throw("invalid configuration parameter: $param") unless $method = UNIVERSAL::can($parser, $param); eval { do { &$method($parser, $value) } }; $self->throw("configuration parameter '${param}' failed: $@") if $@; } ; $parser } |
| 101 | 0 | 1 | 0 | @_ && ref $_[-1] eq 'HASH' |