Params::Named - Map incoming arguments to parameters of the same name.
use Params::Named; use IO::All; sub storeurl { my $self = shift; MAPARGS \my($src, $dest); return io($src) > io($dest); } $obj->storeurl(src => $url, dest => $fh);
This module does just one thing - it maps named arguments to a subroutine's lexical parameter variables or, more specifically, any lexical variables passed into MAPARGS. Named parameters are exactly the same as a flattened hash in that they provide a list of key => value pairs. So for each key that matches a lexical variable passed to MAPARGS the corresponding value will be mapped to that variable. Here is a short example to demonstrate MAPARGS in action:
MAPARGS
key => value
use Params::Named; sub mapittome { MAPARGS \my($this, @that, %other); print "This is: '$this'\n"; print "That is: ", join(', ', @that), "\n"; print "The other: ", join(', ', map "$_ => $other{$_}", keys %other), "\n"; } mapittome this => 'a simple string', that => [qw/a list of items/], other => {qw/a hash containing pairs/}; ## Or if you've got a hash. my %args = ( this => 'using a hash', that => [qw/is very cool/], other => {qw/is it not cool?/}, ); mapittome %args;
The example above illustrates the mapping of mapittome's arguments to its parameters. It will work on scalars, arrays and hashes, the 3 types of lexical values.
mapittome
Given a list of variables map those variables to named arguments from the caller's argument. Taking advantage of one of Perl's more under-utilized features, passing in a list of references as created by applying the reference operator to a list will allow the mapping of compound variables (without the reference lexically declared arrays and hashes flatten to an empty list). Argument types must match their corresponding parameter types e.g foo => \@things should map to a parameter declared as an array e.g MAPARGS \my(@foo).
foo => \@things
MAPARGS \my(@foo)
The arguments passed to MAPARGS don't need to be referenced if they are simple scalars, but do need to be referenced if either an array or hash is used.
Parameter '%s' not mapped to an argument
This warning is issued because a parameter couldn't be mapped to an argument i.e if foo1 => 'bar' is accidentally passed to subroutine who's parameter is $fool.
foo1 => 'bar'
$fool
The parameter '%s' doesn't match argument type '%s'
A given parameter doesn't match it's corresponding argument's type e.g
sub it'llbreak { MAPARGS \my($foo, @bar); ... } ## This will croak() because @bar's argument isn't an array reference. it'llbreak foo => 'this', bar => 'that';
So either the parameter or the argument needs to be updated to reflect the desired behaviour.
Sub::Parameters, Sub::Signatures, Params::Smart
Robin Houston for bug spotting, code refactoring, idea bouncing and releasing a new version of PadWalker (is there anything he can't do?).
Dan Brook <cpan@broquaint.com>
<cpan@broquaint.com>
Copyright (c) 2005, Dan Brook. All Rights Reserved. This module is free software. It may be used, redistributed and/or modified under the same terms as Perl itself.
To install Params::Named, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Params::Named
CPAN shell
perl -MCPAN -e shell install Params::Named
For more information on module installation, please visit the detailed CPAN module installation guide.