is => 'rw',
isa => 'ArrayRef[Str]',
auto_deref => 1,
- default => sub { [] },
+ default => sub { [ 'default' ] },
);
local @ARGV = @{ $getopt->ARGV };
local $SIG{__WARN__} = sub {
- return warn @_ if $_[0]=~/^\###/; # Smart::Comments
$warnings .= $_[0];
};