Branch Coverage

blib/lib/DracPerl/Client.pm
Criterion Covered Total %
branch 12 20 60.0


line true false branch
41 0 1 unless $self->_check_res('Login Step 0 performed', $login_form->is_success)
56 2 0 if ($response_raw->is_success)
61 1 1 if $logged
62 0 2 if $current_tries > $self->max_retries - 1
68 0 1 unless $logged
76 1 0 if $tokens_parts[0]
91 0 1 unless $self->token
99 1 0 if $response->is_success
101 1 0 if $self->single_use
109 3 1 if ($condition) { }