Net-OAuth2 with refresh sample usecase

Net-OAuth2-refresh

#load token if previously saved
if( my $data = read_file( $tokenfile ) ) {
	$self->{token} = $data;
}

#instanciate api with token_or_undef
$self->{api} = Net::OAuth2::Client->new(
	$self->{client_id},
	$self->{client_secret},
	site                => $self->{site},
	authorize_path      => $self->{authorize_path},
	access_token_path   => $self->{access_token_path},
	access_token_method => $self->{access_token_method},
	access_token_param  => $self->{access_token_param},
	scope               => $self->{scope},
)->web_server(
	redirect_uri        => $self->{callback}
)->get_access_token(
	%{$self->{token}}  
);

#...
# uses of $self->{api}->access_token() automically refreh it if needed

#and finally save the token
write_file $tokenfile => { $self->{api}->save };