Branch Coverage

blib/lib/Net/OpenStack/Client/Identity/Tagstore.pm
Criterion Covered Total %
branch 33 48 68.7


line true false branch
59 3 0 if (defined $self->{'id'}) { }
83 14 0 if defined $tag
84 0 14 if ($oper eq 'get') { }
85 0 0 defined $tag ? :
105 24 4 if ($self->{'cache'}) { }
111 4 0 if ($resp) { }
115 0 4 unless $resp->result
116 7 0 if ($proj->{'name'} =~ /_(\d+)$/) { }
117 4 3 if $1 > $self->{'counter'}
125 0 7 unless $proj->{'tags'}
126 6 1 if (@tags) { }
172 8 1 if (defined $tag) { }
174 5 3 exists $self->{'cache'}{$tag} ? :
193 1 16 unless (defined $data)
199 1 15 if ($ref ne '')
220 0 9 unless $self->_sane_data('add', $data)
226 1 8 if (defined $pid) { }
235 7 1 if (@avail) { }
244 1 0 if ($resp and $resp->result) { }
256 9 0 if ($resp) { }
282 0 5 unless $self->_sane_data('delete', $data)
287 5 0 if (defined $pid)
290 5 0 if ($resp) { }
294 1 4 unless (grep {$_ eq $pid;} values %{$$self{'cache'};})