Getopt::GetArgs 1.03

GetArgs is a Perl module to allow enhanced argument passing, including passing of case-insensitive named arguments as well as positioned arguments.

SYNOPSIS

sub WHATEVER {
my @DEFAULT_ARGS =
( Content => "Default content",
Verbose => 0
);
my %ARGS=GetArgs(@_,@DEFAULT_ARGS);
# do some stuff with $ARGS{Content}
# show all kinds of detail if $ARGS{Verbose}
}

# a simple call to WHATEVER
WHATEVER( "Just deal with my content" );

# a flexible call to WHATEVER
WHATEVER({ verbose => 1,
content => "This is my content",
});

GetArgs needs to know * what your subroutine was passed, * and what it expected to be passed. * If you like, you can also supply default values to use when an argument is not passed.

Using this information, GetArgs will create a hash of arguments for you to use throughout your subroutine. Using GetArgs has several advantages:

1) Calls to your subroutine can pass named arguments, making the code more readable.
2) If its easier to pass a list of arguments as you normally would, thats fine.
3) With GetArgs your use of arguments in your subroutine code is more readable.
4) Your subroutines are no longer limited in the number of arguments they expect.
5) Arguments can be passed in any order (if passed inside the hash ref), thus only the arguments relevant to that call need to be passed--unnecessary arguments can be ignored.
6) Case is not important, as GetArgs matches argument names case insensitively.