Select Code to Download

#!/usr/bin/perl -w
use strict;
...
);

print($usage->text), exit if $opt->help;

$ ./877972.pl --help
my-program [-psv] [long options...] <some-arg>
...
                  
    -v --verbose    print extra stuff
    --help          print usage message and exit

sub _validate_with {
  my (%arg) = validate(@_, {    # <-- line 442
...
    opts   => 1,
    usage  => 1,
  });