view release on metacpan or  search on metacpan

eg/google-drive-upsync  view on Meta::CPAN

4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
use Sysadm::Install qw(:all);
use Net::Google::Drive::Simple;
use Log::Log4perl qw(:easy);
use File::Basename;
use Getopt::Std;
use Pod::Usage;
 
getopts( "hvnc", \my %opts );
pod2usage() if $opts{h};
 
my ( $local_dir, $gd_dir ) = @ARGV;
 
if ( !defined $gd_dir ) {
    pod2usage("No Google Drive dir given");
}
 
if ( !-d $local_dir ) {
    pod2usage("$local_dir not a directory");
}
 
if ( $opts{c} ) {