note
james2vegas
That is because while the d option's value is required, the d option itself is not, check the definedness of $_debug afterwards: <br><br>
<code>
use Getopt::Long;
my $_debug;
GetOptions('d=i' => sub {
$_debug = $_[1];
($_debug > 0 && $_debug <= 4) or die "Invalid Debug Level ($_debug)"
} ) or exit 1;
die "Debug Level is required" unless defined $_debug;
warn "Debug Level is $_debug\n";
</code>
<br>
or set a default value before GetOptions:
<br><br><code>
use Getopt::Long;
my $_debug = 0;
GetOptions('d=i' => sub {
$_debug = $_[1];
($_debug > 0 && $_debug <= 4) or die "Invalid Debug Level ($_debug)"
} ) or exit 1;
warn "Debug Level is $_debug\n";
</code>
996976
997054