| line |
true |
false |
branch |
|
21
|
0 |
259 |
unless $self->ensure_required("code_challenge", "code_challenge_method") |
|
24
|
0 |
259 |
unless exists $Net::OAuth2Server::PKCE::transform{$method} |
|
25
|
2 |
257 |
unless 43 == length $challenge |
|
27
|
192 |
65 |
if $challenge =~ /([^A-Za-z0-9_-])/g |
|
36
|
0 |
0 |
unless my($challenge, $method) = $self->get_pkce_challenge |
|
55
|
0 |
261 |
unless my $t = $Net::OAuth2Server::PKCE::transform{$method} |
|
57
|
0 |
261 |
unless $self->ensure_required("code_verifier") |
|
59
|
2 |
259 |
unless grep((43 <= $_ && $_ <= 128), length $verifier) |
|
61
|
190 |
69 |
if $verifier =~ /([^.~A-Za-z0-9_-])/g |
|
71
|
0 |
0 |
unless my($challenge) = $self->get_pkce_challenge($method) |
|
73
|
0 |
0 |
unless my $ok = $hmac eq $orig_hmac |