How to make script die with "Not enough args" on compilation step if args are passed as a hash ref? See inside

Doctrin has asked for the wisdom of the Perl Monks concerning the following question:

Hello dear Monks. If i do:

sub MySub($$;$) {
my ($a,$b,$c) = @_;
print "$a $b $c";
return 1;
}
...
MySub(1);
[download]

script would die on COMPILATION step. How can I make a completely same thing with arguements passed as a hash ref? Like that:

sub MySub($args) {
...
#and if I do not pass, say, $args->{my_obligatory_arg} whole thing die
+s on COMPILATION step
}
[download]

Thanks in advance

Comment on How to make script die with "Not enough args" on compilation step if args are passed as a hash ref? See inside Select or Download Code

Replies are listed 'Best First'.
Re: How to make script die with "Not enough args" on compilation step if args are passed as a hash ref? See inside by choroba (Cardinal) on Jun 21, 2013 at 08:20 UTC
What should the compilation step do with a code like this? `my $args = {}; $args->{my_obligatory_arg} = 'present' if .5 < rand 1; my_sub($args);` [download] لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ	[reply] [d/l]
Re^2: How to make script die with "Not enough args" on compilation step if args are passed as a hash ref? See inside by hdb (Monsignor) on Jun 21, 2013 at 08:23 UTC
Schrödinger's cat!	[reply]
Re^2: How to make script die with "Not enough args" on compilation step if args are passed as a hash ref? See inside by Doctrin (Beadle) on Jun 21, 2013 at 08:32 UTC
Oh... It looks like I cannot do what I need... Thanks!	[reply]
Re: How to make script die with "Not enough args" on compilation step if args are passed as a hash ref? See inside by Anonymous Monk on Jun 21, 2013 at 08:21 UTC
I don't think you can, see Method::Signatures::Simple	[reply]
Re: How to make script die with "Not enough args" on compilation step if args are passed as a hash ref? See inside by Eily (Monsignor) on Jun 21, 2013 at 16:06 UTC
I'll just go and assume that your arguments are known at compile time because ... well ... your question doesn't make much sense otherwise. If this checking is really that important to you, you could always try source filtering. With Filter::Simple you could try to find every calls to that function (and I'm not talking about special cases like calling from a sub reference, because there's no prototype checking there either) and check the parameters. If you call it only like MySub( {key => value, otherKey => value, ... } ) you could do with a regex. And if you call it like MySub(CanYieldAHashRefAtCompileTime); You could use your filter to get the parameters as a string, eval it (which would give you a hashref), make your verification, and even replace the string by its "value" by using Data::Dumper. That probably is a bad idea if your data contains bless references (instances) or tied variables. So you could do it, and that wouldn't be that difficult provided you read the documentations carefully, but you should still ask yourself if it really is worth the trouble and added complexity to your program.	[reply]
Re: How to make script die with "Not enough args" on compilation step if args are passed as a hash ref? See inside by Anonymous Monk on Jun 21, 2013 at 12:16 UTC
`die "arg $_ not found" unless exists($hash->{$_}) for (qw/apple pear peach/)`	[reply]
Re^2: How to make script die with "Not enough args" on compilation step if args are passed as a hash ref? See inside by choroba (Cardinal) on Jun 21, 2013 at 12:21 UTC
Do you think that not using the `<code>` tags will make the code run in the compilation phase? لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ	[reply] [d/l]


Pathologically Eclectic Rubbish Lister
	PerlMonks