zap trailing whitespace and tabs

This commit is contained in:
purplerain 2023-09-16 04:38:16 +00:00
parent 8b897ac235
commit 2990d002be
Signed by: purplerain
GPG key ID: F42C07F07E2E35B7
179 changed files with 992 additions and 992 deletions

View file

@ -154,7 +154,7 @@ sub new($class, $string, $code)
my @alternates = split(/\|/, $string);
bless {
alt => [map { Option->factory($_); } @alternates],
alt => [map { Option->factory($_); } @alternates],
code => $code
}, $class;
}
@ -190,7 +190,7 @@ sub add_option_accessor($self, $option, $isarray)
my $access = $option;
$access =~ s/^\-//;
$access =~ s/-/_/g;
my $actual = $isarray ?
my $actual = $isarray ?
sub($self) {
$self->{opt}{$option} //= [];
if (wantarray) {
@ -232,7 +232,7 @@ sub create_options($self, @l)
};
}
}
push(@options,
push(@options,
Options->new($opt, $code)->setup($self, $isarray));
}
return @options;