Emulate git commands in having -h for usage distinct from --help for full
documentation.
our $VERSION = '1.00';
use Getopt::Long '2.33';
our $VERSION = '1.00';
use Getopt::Long '2.33';
+sub podexit { require Pod::Usage; Pod::Usage::pod2usage(-exitval => 0, @_) }
GetOptions(\my %opt,
'width|w=i',
GetOptions(\my %opt,
'width|w=i',
+ 'usage|h' => sub { podexit() },
+ 'help' => sub { podexit(-verbose => 2) },
) or exit 64; # EX_USAGE
$opt{width} ||= $ENV{COLUMNS} || 80;
) or exit 64; # EX_USAGE
$opt{width} ||= $ENV{COLUMNS} || 80;