| blib/lib/DracPerl/Client.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 15 | 28 | 53.5 |
| line | true | false | branch |
|---|---|---|---|
| 47 | 1 | 0 | unless ($saved_session) |
| 74 | 0 | 1 | unless $self->token |
| 88 | 0 | 1 | unless $response->is_success |
| 92 | 0 | 0 | unless $treelist->{'TreeNode'} |
| 102 | 1 | 0 | if ($login_form->is_success) { } |
| 127 | 3 | 0 | if ($response_raw->is_success) |
| 132 | 1 | 2 | if $logged |
| 133 | 0 | 3 | if $current_tries > $self->max_retries - 1 |
| 135 | 1 | 2 | if ($logged) { } |
| 151 | 0 | 1 | unless $logged |
| 161 | 1 | 0 | if $tokens_parts[0] |
| 169 | 0 | 1 | unless $self->token |
| 173 | 1 | 0 | if ($response->is_success) { } |
| 182 | 1 | 0 | if $response->is_success |