| line |
true |
false |
branch |
|
23
|
0 |
259 |
unless $self->ensure_required('code_challenge', 'code_challenge_method') |
|
26
|
0 |
259 |
unless exists $Net::OAuth2Server::PKCE::transform{$method} |
|
27
|
2 |
257 |
unless 43 == length $challenge |
|
29
|
192 |
65 |
if $challenge =~ /([^A-Za-z0-9_-])/g |
|
38
|
0 |
0 |
unless my($challenge, $method) = $self->get_pkce_challenge |
|
58
|
0 |
261 |
unless my $t = $Net::OAuth2Server::PKCE::transform{$method} |
|
60
|
0 |
261 |
unless $self->ensure_required('code_verifier') |
|
62
|
2 |
259 |
unless grep((43 <= $_ && $_ <= 128), length $verifier) |
|
64
|
190 |
69 |
if $verifier =~ /([^.~A-Za-z0-9_-])/g |
|
74
|
0 |
0 |
unless my($challenge) = $self->get_pkce_challenge($method) |
|
76
|
0 |
0 |
unless my $ok = $hmac eq $orig_hmac |