| blib/lib/Protocol/Yadis/Document/Service.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 16 | 24 | 66.6 |
| line | true | false | branch |
|---|---|---|---|
| 20 | 1 | 17 | defined $_[1] ? : |
| 28 | 0 | 6 | unless $name |
| 30 | 6 | 0 | if (my(@elements) = grep({$_->name eq $name;} @{$self->elements;})) |
| 38 | 2 | 13 | if (@_) { } |
| 62 | 0 | 3 | unless $name |
| 68 | 3 | 0 | if $$attrs[$i] eq $name |
| 71 | 2 | 1 | if (@_) |
| 73 | 0 | 2 | if ($i >= @$attrs) { } |
| 74 | 0 | 0 | if $value |
| 82 | 0 | 1 | if $i >= @$attrs |
| 92 | 1 | 2 | unless $self->attrs->[$i + 1] |
| 102 | 1 | 3 | if $elements |