Contents | Up | Prev | Next |
my $variant = $self->{'default_variant'}; my $help = 0; my $man = 0; Getopt::Long::Configure('pass_through'); GetOptions( "g|game=s" => \$variant, 'help|h|?' => \$help, 'man' => \$man ) or pod2usage(2); pod2usage(1) if $help; pod2usage(-exitstatus => 0, -verbose => 2) if $man; |
Contents | Up | Prev | Next |
Written by Shlomi Fish