line | % | coverage | branch |
26 | 100 | T | F | unless (defined $cont and UNIVERSAL::isa($cont, 'Tivoli::AccessManager::Admin::Context')) |
30 | 100 | T | F | if (@_ == 1) { } |
| 100 | T | F | elsif (@_ % 2) { } |
| 100 | T | F | elsif (@_) { } |
48 | 100 | T | F | if ($$self{'name'}) |
50 | 100 | T | F | if $rc |
61 | 100 | T | F | if (ref $class) { } |
66 | 100 | T | F | unless (defined $pd and UNIVERSAL::isa($pd, 'Tivoli::AccessManager::Admin::Context')) |
73 | 100 | T | F | if (@_ % 2) |
82 | 50 | T | F | if ($resp->isok) |
83 | 100 | T | F | if (defined $opts{'pattern'}) { } |
109 | 100 | T | F | unless ($$self{'exist'}) |
119 | 100 | T | F | unless $resp->isok |
131 | 100 | T | F | unless ($$self{'exist'}) |
138 | 100 | T | F | unless (@temp) |
140 | 50 | T | F | unless $resp->isok |
147 | 100 | T | F | unless $resp->isok |
159 | 100 | T | F | unless (open RULE, $fname) |
176 | 100 | T | F | unless (ref $self) |
181 | 100 | T | F | if ($self->exist) |
188 | 100 | T | F | if (@_ % 2) |
195 | 100 | T | F | if (defined $opts{'file'}) { } |
| 100 | T | F | elsif (defined $opts{'rule'}) { } |
197 | 100 | T | F | if ($resp->isok) { } |
218 | 100 | T | F | if $resp->isok |
227 | 100 | T | F | unless ($$self{'exist'}) |
235 | 100 | T | F | if ($rc) |
248 | 100 | T | F | if (@_ == 1) { } |
| 100 | T | F | elsif (@_ % 2) { } |
| 100 | T | F | elsif (@_) { } |
264 | 100 | T | F | unless ($$self{'exist'}) |
270 | 100 | T | F | if ($desc) |
275 | 100 | T | F | if ($resp->isok) |
288 | 100 | T | F | if (@_ % 2) |
295 | 100 | T | F | unless ($$self{'exist'}) |
301 | 100 | T | F | if (defined $opts{'file'}) { } |
| 100 | T | F | elsif (defined $opts{'rule'}) { } |
303 | 100 | T | F | if ($resp->isok) { } |
314 | 100 | T | F | if ($text) |
318 | 100 | T | F | if ($resp->isok) |
320 | 50 | T | F | if ($resp->isok) |
335 | 100 | T | F | if (@_ == 1) { } |
| 100 | T | F | elsif (@_ % 2) { } |
| 100 | T | F | elsif (@_) { } |
348 | 100 | T | F | unless ($$self{'exist'}) |
355 | 100 | T | F | if ($reason) |
359 | 100 | T | F | if ($resp->isok) |