No access_token, cant build headers

[teolemon]

I'm trying to contribute a new feature to Open Food Facts, but I'm not familiar with Perl

I'm getting

teolemon@ns3362784:~$ ./test_cloud_vision_pierre.pl 
No access_token, cant build headers at /usr/local/share/perl/5.20.2/Moo/Google/Client.pm line 41.

use strict;

use Moo::Google;
my $gapi = Moo::Google->new(access_token => 'XXXXXXX');
$gapi->do_autorefresh(1);

print "annotate\n";


my $r1 = Moo::Google->new(access_token => $gapi->Vision->Images->annotate({ features => [{ type => 'TEXT_DETECTION'}], image => { source => { imageUri => "https://static.openfoodfacts.org/images/products/356/470/917/6611/ingredients_fr.10.full.jpg"}}})->json;

use Data::Dumper;