Revision 31c29821
Von Sven Schöling vor etwa 13 Jahren hinzugefügt
| scripts/rose_auto_create_model.pl | ||
|---|---|---|
| 161 | 161 |
sub parse_args {
|
| 162 | 162 |
my ($options) = @_; |
| 163 | 163 |
GetOptions( |
| 164 |
'login|user=s' => \ my $login, |
|
| 165 |
all => \ my $all, |
|
| 166 |
sugar => \ my $sugar, |
|
| 167 |
'no-commit' => \ my $nocommit, |
|
| 168 |
'dry-run' => \ my $nocommit, |
|
| 169 |
help => sub { pod2usage(verbose => 99, sections => 'NAME|SYNOPSIS|OPTIONS') },
|
|
| 170 |
verbose => \ my $verbose, |
|
| 171 |
diff => \ my $diff, |
|
| 164 |
'login|user=s' => \ my $login, |
|
| 165 |
all => \ my $all, |
|
| 166 |
sugar => \ my $sugar, |
|
| 167 |
'no-commit|dry-run' => \ my $nocommit, |
|
| 168 |
help => sub { pod2usage(verbose => 99, sections => 'NAME|SYNOPSIS|OPTIONS') },
|
|
| 169 |
verbose => \ my $verbose, |
|
| 170 |
diff => \ my $diff, |
|
| 172 | 171 |
); |
| 173 | 172 |
|
| 174 | 173 |
$options->{login} = $login if $login;
|
Auch abrufbar als: Unified diff
Getopt: zwei boolean auf die gleiche Variable funktioniert nicht.