Some more detail: $req
file: code/Validad::Tools::Role::OX::Request::BearerToken 39: 40: sub token_claims { 41: my $self = shift; 42: 43: return $self->env->{'psgix.token.claims'}; 44: } 45: 46: sub token_claim_sub { 47: my $self = shift; 48: 49: my $claims = $self->token_claims; 50: return unless $claims && ref($claims) eq 'HASH'; 51: return $claims->{sub}; 52: }
methods to make it easy to get the needed data