Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number

Re^4: Near-free function currying in Perl

by tmoertel (Chaplain)
on Mar 21, 2005 at 19:04 UTC ( #441268=note: print w/replies, xml ) Need Help??

in reply to Re^3: Near-free function currying in Perl
in thread Near-free function currying in Perl

Thanks for the friendly reminder.

I just uploaded version 0.1003 to CPAN. It includes the following addition:

=head2 Using another suffix Do not change the suffix unless you truly must. If for some reason you cannot use the standard C<_c> suffix, you can override it by changing C<$AutoCurry::suffix> I<for the duration of your calls to AutoCurry>. Use C<do> and C<local> to limit the scope of your changes: use AutoCurry; # suffix changing is not compatible with ':all' my @curried_fns = do { local $AutoCurry::suffix = "_curry"; AutoCurry::curry_package(); }; # result: ( "main::foo_curry" ) sub foo { ... }; # foo_curry will be created by call to curry_package, above

I cannot use the BEGIN approach that you suggested because that would override the suffix for all subsequent users of AutoCurry, not just the current package.

Replies are listed 'Best First'.
Re^5: Near-free function currying in Perl
by diotalevi (Canon) on Mar 21, 2005 at 19:10 UTC

    Ok, here's the BEGIN approach changed so it *does* work for you. I'm just creating a use() which has the value set for its duration. Any later calls to use() or ->import() won't reflect the suffix I set here.

    BEGIN { local $AutoCurry::suffix = ...; require AutoCurry; AutoCurry->import(); }

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://441268]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (6)
As of 2020-11-24 21:11 GMT
Find Nodes?
    Voting Booth?

    No recent polls found