command line options in perl - perl

Question

I invoke my perl script by passing a number of command line options. If the required command line options are not passed by the user while invoking the script, the script should terminate. Currently I'm doing a simple check using if statement. If the required arguments are more than 10, using If statement looks clunky. I'm just wondering if there is a better way to do it than just using an if statement.
Command line options :
sub startup {
my ($self) = #_;
GetOptions (
"endpoint|e=s" => \$self->{'endpoint'},
"port|pt=s" => \$self->{'port'},
"client|c=s" => \$self->{'client'},
"client_interface|ci=s" => \$self->{'client_interface'},
"origin|o=s" => \$self->{'origin'},
"origin_interface|oi=s" => \$self->{'origin_interface'},
"customer_id|cid=s" => \$self->{'customer_id'},
"endpoint_id|eid=s" => \$self->{'endpoint_id'},
) || $self->abort( "Invalid command line options.
Valid options are endpoint,port,client,client_interface,
origin,origin_interface,customer_id,endpoint_id");
#Terminate the script execution if --endpoint ip and --customer id and --client are not passed
if ( !$self->{'endpoint'} || !$self->{'customer_id'} || !$self->{'client'}){
$self->abort( '[Startup] endpoint customer and client are required arguments.'
. 'Please provide --endpoint and --customer id and -- client ');
}
command to invoke the script :
./testframework --scriptname -- --endpoint=198.18.179.42 --port=5000 --client=1.1.1.1 --client_interface=2.2.2.2 --origin=3.3.3.3 --origin_interface= --Outertunnel=Tunnel0 --Innertunnel=Tunnel2 --customer_id=900010 --endpoint_id=2859588

Answer 1

The version below removes some of the clunkiness while providing a more specific error message.
my #required = qw( endpoint customer_id client );
if ( my #missing = grep { !$self->{$_} } #required ) {
$self->abort("[Startup] Missing required arguments: #missing");
}

Answer 2

One way is to use all from List::Util:
unless ( all { defined $self->{$_} } qw(endpoint customer_id client) ){
# error
}
If you don't have a recent version of List::Util, use List::MoreUtils

Answer 3

Can you just check to see that you have the proper number of defined keys in your hash?
my #options = grep { defined $self->{$_} } keys %{$self};
die "Missing options\n" unless #options == 10;
Or if you want your usage statement to be more explicit:
for my $opt (keys %{$self}) {
die "Missing option --$opt\n" unless defined $self->{$opt};
}