#!/usr/bin/env perl use strict; use warnings; use FindBin; use lib "$FindBin::Bin/../lib"; use webapp; use Net::OAuth2::Client; use Dancer2; get '/get/site_id' => sub { redirect client(params->{site_id})->authorize; }; webapp->to_app;