return $a;
}
+sub intarg {
+ my ($me, $what, $min, $max) = @_;
+ $what //= "option `-$me->{opt}'";
+ defined (my $a = $me->arg) or return undef;
+ if ($a !~ /^[-+]?\d+$/ ||
+ (defined $min && $a < $min) ||
+ (defined $max && $a > $max)) {
+ $me->err("invalid value `$a' for $what");
+ $a = undef;
+ }
+ return $a;
+}
+
sub rest { return @{$_[0]->{args}}; }
sub ok { return $_[0]->{ok}; }
sub bad { $_[0]->{ok} = 0; }