| blib/lib/XML/Atom/Util.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 13 | 22 | 59.0 |
| line | true | false | branch |
|---|---|---|---|
| 23 | 87 | 128 | if (my $ns = delete $param->{'Namespace'}) { } |
| 28 | 15 | 113 | if $version == 1 |
| 29 | 0 | 128 | unless my $ns = $NS_MAP{$version} |
| 42 | 0 | 0 | unless @nodes |
| 48 | 0 | 0 | $_[1] ? : |
| 61 | 180 | 0 | $_[1] ? : |
| 73 | 0 | 0 | unless my $node = first(@_) |
| 79 | 0 | 12 | unless $iso =~ /^(\d{4})(?:-?(\d{2})(?:-?(\d\d?)(?:T(\d{2}):(\d{2}):(\d{2})(?:\.\d+)?(?:Z|([+-]\d{2}:\d{2}))?)?)?)?/ |
| 92 | 8 | 4 | if ($zone and $zone ne 'Z') |
| 112 | 7 | 40 | if (ref $ns eq 'XML::Atom::Namespace') { } |
| 121 | 7 | 40 | $ns_prefix ? : |