view release on metacpan or  search on metacpan

bin/distsync  view on Meta::CPAN

}

Getopt::Long::Configure ("bundling");
GetOptions(\%OPT,
    "help|usage|h",         # Show help page
    "longhelp|H|?",         # Show long help page
    "version|vers|ver|V",   # Print VERSION of the App::MBUtiny
    "debug|d",              # Debug mode

    "directory|dir|D=s",    # Directory
    "timeout|T=s",          # Timeout
    "hold|keep|k=i",        # Hold value. 0 - off, 1-n - secs, default - 3600
) || pod2usage(-exitval => 1, -verbose => 0, -output => \*STDERR);
pod2usage(-exitval => 0, -verbose => 1) if $OPT{help};
pod2usage(-exitval => 0, -verbose => 2) if $OPT{longhelp};
printf("Version: %s\n", App::DistSync->VERSION) && exit(0) if $OPT{version};

# VARS
my %cmddata;
my $command   = @ARGV ? shift @ARGV : CMDDEFAULT;
my @argss = @ARGV ? @ARGV : ();