Net::Google::Drive::Simple

test-google-drive.pl

#!perl

use strict;
use warnings;

use feature 'say';

use Net::Google::Drive::Simple;

my $gd = Net::Google::Drive::Simple->new();
my $children = $gd->children( "/" ) or die "Google::Drive failure: $!";

foreach my $child ( @$children ) {
	 # mimeType allow to know if it s a folder or not
   #say( $child->mimeType, " -> ", $child->title() );

   if ( $child->mimeType eq 'application/vnd.google-apps.folder' ) {
   		say "** ", $child->title, " is a folder";
   } else {
   		say $child->title, " is a file";
   }
}

__END__

# note the future release will contain some helpers
# so you could do something like this

foreach my $child ( @$children ) {
   if ( $child->is_folder ) {
   		say "** ", $child->title, " is a folder";
   } else {
   		say $child->title, " is a file";
   }
}