Re^4: 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
[download]

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.

Tom Moertel : Blog / Talks / CPAN / LectroTest / PXSL / Coffee / Movie Rating Decoder

Comment on Re^4: Near-free function currying in Perl Download Code

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(); }` [download]	[reply] [d/l]
Re^6: Near-free function currying in Perl by tmoertel (Chaplain) on Mar 26, 2005 at 06:38 UTC
Except that `AutoCurry ':all'` postpones curryification until INIT time, which by then the suffix will have changed back. Tom Moertel : Blog / Talks / CPAN / LectroTest / PXSL / Coffee / Movie Rating Decoder	[reply]