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(); }