#!/usr/bin/env perl use strict; use warnings; use FindBin; use lib "$FindBin::Bin/../lib"; use webapp; use Net::OAuth2::Client; use Dancer2; sub client { Net::OAuth2::Client->new( config->{'xxxxxxxxxxxxxxxxxxxxxx'}, config->{'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx'}, authorize_url => 'https://dev.oktapreview.com/oauth2/v1/authorize', access_token_url => 'https://dev.oktapreview.com/oauth2/v1/token', response_type => 'code', redirect_uri => uri_for ("https://testchandan.com:5001/"), grant_type => 'authorization_code', scope => 'openid', state => '1234', ); } get 'https://testchandan.com:5001/42:site_id' => sub { redirect client(params->{site_id})->authorize; }; webapp->to_app;