zap trailing whitespace and tabs
This commit is contained in:
parent
8b897ac235
commit
2990d002be
179 changed files with 992 additions and 992 deletions
|
@ -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;
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue