LM-Solve - A Logic Mazes SolverTechnologies used by LM-SolvePOD, Pod::Usage and Friends

2.3. POD, Pod::Usage and Friends


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;

Written by Shlomi Fish