Re: subref with stored argument?

Try using an anonymous sub:

  my $code = sub { mysub(10, @_) };
[download]

As a matter of fact, there's nothing particularly unusual about wanting to do this: its called "currying". --Dave

Comment on Re: subref with stored argument? Download Code

Replies are listed 'Best First'.
Re: Re: subref with stored argument? by djantzen (Priest) on Jan 10, 2003 at 01:17 UTC
I wasn't even aware there was a term for this, but a quick CPAN search revealed a couple of modules to encapsulate the behavior, even one by our own TheDamian. Curry by David Helgason: "`[`The function`]` returns a subref to a function that calls the given function with arguments _plus_ whatever arguements are sent to it." Currying by Damian Conway: "This method call returns a reference to a new subroutine that calls the original subroutine, inserting into its argument list the prebound arguments." Also interesting is this remark from Helgason's module (released originally in November, 2000), "Perhaps the main reason for making this package is to avoid it being included in perl6 syntax, as per one dangerous looking RFC." And Conway's take on it: "The Perl6::Currying module lets you try out the new Perl 6 explicit higher-order function syntax in Perl 5." I guess we know who won that debate :^)	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re: Re: subref with stored argument?
by djantzen (Priest) on Jan 10, 2003 at 01:17 UTC

I wasn't even aware there was a term for this, but a quick CPAN search revealed a couple of modules to encapsulate the behavior, even one by our own TheDamian.

Curry by David Helgason: "[The function] returns a subref to a function that calls the given function with arguments _plus_ whatever arguements are sent to it."
Currying by Damian Conway: "This method call returns a reference to a new subroutine that calls the original subroutine, inserting into its argument list the prebound arguments."

Also interesting is this remark from Helgason's module (released originally in November, 2000), "Perhaps the main reason for making this package is to avoid it being included in perl6 syntax, as per one dangerous looking RFC." And Conway's take on it: "The Perl6::Currying module lets you try out the new Perl 6 explicit higher-order function syntax in Perl 5." I guess we know who won that debate :^)

[reply]
[d/l]
[select]