Re^2: Injecting a value into HTTP::Header

Hope this helps!

It helped immensely thank you...
It forced me to go and find where I had got push_header() from. In doing that search of source code it twigged that it was not the header that needed token_type but the content. With that realisation, the rest sort of fell into place.

Here is the working overridden sub in case anyone has a similar problem and comes across this in future:

sub construct_tokens {
    my ($self, $oauth2, $response) = @_;
    
    my $content = eval {decode_json($response->content)};
    unless ($@) {
        $content->{'token_type'} = 'bearer';
        $response->content(encode_json($content));
    }
    
    $self->SUPER::construct_tokens($oauth2, $response);
}
[download]

Can anyone explain what the documentation means when is says to contribute one should submit a git pull request? I would like to contribute my LinkedIn solution when it is complete and tested as I am sure I am not the only person wanting to connect to LinkedIn with Perl.

Comment on Re^2: Injecting a value into HTTP::Header Select or Download Code

Replies are listed 'Best First'.
Re^3: Injecting a value into HTTP::Header by choroba (Cardinal) on Apr 19, 2021 at 17:07 UTC
> Can anyone explain what the documentation means I can try. It means you can get your provider included in the distribution, instead of creating a distribution of your own. Currently, there are several providers in the dist: LWP::Authen::OAuth2::ServiceProvider::Google, LWP::Authen::OAuth2::ServiceProvider::Dwolla, LWP::Authen::OAuth2::ServiceProvider::Line, LWP::Authen::OAuth2::ServiceProvider::Strava, and LWP::Authen::OAuth2::ServiceProvider::Yahoo. If you want to create LWP::Authen::OAuth2::ServiceProvider::LinkedIn and have it included in the distribution, you need to fork the GitHub repository and create a pull request satisfying all the listed conditions. `map{substr$_->[0],$_->[1]\|\|0,1}[\\|\|{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^ARGV,3]`	[reply] [d/l]
Re^4: Injecting a value into HTTP::Header by Bod (Parson) on Apr 19, 2021 at 20:43 UTC
you need to fork the GitHub repository and create a pull request That's the bit I'm not sure what I'm doing... But I guess the starting point is to create a GitHub account and go from there.	[reply]
Re^5: Injecting a value into HTTP::Header by soonix (Canon) on Apr 20, 2021 at 07:08 UTC
… and/or getting started with git's magic: Git Magic	[reply]
Re^6: Injecting a value into HTTP::Header by Bod (Parson) on Apr 20, 2021 at 16:04 UTC


Perl: the Markov chain saw
	PerlMonks