summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
d8b3935)
Default Getopt::Long results include environment-specific details unlike
most other programs, maybe enforcing minimal details in some bug reports,
but making test output non-portable.
use open qw( :std :utf8 );
use experimental qw( lexical_subs );
use open qw( :std :utf8 );
use experimental qw( lexical_subs );
use Getopt::Long '2.33', qw( :config gnu_getopt );
my %opt;
use Getopt::Long '2.33', qw( :config gnu_getopt );
my %opt;
'signal-stat=s',
'unmodified|u!',
'width|w=i',
'signal-stat=s',
'unmodified|u!',
'width|w=i',
+ 'version' => sub {
+ say "barcat version $VERSION";
+ exit;
+ },
'usage|h' => sub {
local $/;
my $pod = readline *DATA;
'usage|h' => sub {
local $/;
my $pod = readline *DATA;
-./barcat version 1.05
-(Getopt::Long::GetOptions version 2.48; Perl version 5.24.1)