my $moves = Net::Moves::V1->new(
    client_id => 'abcde12345',
    client_secret => '12345abcde'
);

get '/' => sub { my $c = shift;
    return $c->render('index.tt', +{
        authorize_uri => $moves->authorize,
    });
};

get '/auth/moves/callback' => sub { my $c = shift;
    my $access_token = $moves->access_token(
        code => $c->req->param('code'),
        redirect_uri => 'http://0:5000/auth/moves/callback',
    );
    # save access_token to a session variable.
    $c->session->set(access_token => $access_token->session_freeze);

    return $c->redirect('/');
};

get '/moves/profile' => sub { my $c = shift;
    # get access_token from a session variable.
    my $user = $moves->user($c->session->get('access_token'));

    return $c->render('profile.tt', +{
        user_id => $user->id,
        profile => $user->profile,
    });
};