Net::GDrive 0.01

Net::GDrive is a Google Drive API is based on OAuth.

Developer comments

I try to abstract as much away as possible so you should not need to know too much about it. Kudos to Net::Dropbox::API.

SYNOPSIS

This is how it works:

 use Net::GDrive;

 my $gdrive = Net::GDrive->new();
 my $login_link = $gdrive->login_link();

 ... Time passes and the login link is clicked ...

 my $gdrive = Net::GDrive->new();

 # $code will come from CGI or somesuch: Google gives it to you
 $gdrive->token($code);

 my $files = $gdrive->files();

 foreach my $f (@{ $files->{items} }) {
 if ($f->{downloadUrl}) {
 open(my $fh, ">", "file.dl") or die("file.dl: $!\n");
 print($fh $gdrive->downloadUrl($f));
 close($fh);
 }
 }


Product's homepage

Requirements:

· Perl