Select Code to Download

    my $curried_foo = curry( \&foo, args... );

    sub log_to_handle {
        my ($fh, $heading, $message) = @_;
        print $fh "$heading: $message", $/;
    }

    my $app_server = AppServer->new( logger => $mylogger, ... );

    sub app_server_diagnostic_logger {
        log_to_handle( *STDERR, "app server", @_ );
...
    $app_server = AppServer->new(
        logger => \&app_server_diagnostic_logger, ... 
    );

    $app_server = AppServer->new(
        logger => sub {
            log_to_handle( *STDERR, "app-server", @_ )
        }, ... 
    );

    $app_server = AppServer->new(
        logger => curry( \&log_to_handle, *STDERR, "app-server" ),
        ...
    );

    $app_server = AppServer->new(
        logger => log_to_handle( *STDERR, "app-server" ),
        ...
    );

    $app_server = AppServer->new(
        logger => log_to_handle_c( *STDERR, "app-server" ),
        ...
    );

    sub curry {
        my $f = shift;
        my $args = \@_;
        sub { $f->(@$args, @_) };
    }

    *log_to_handle_c = curry( \&curry, \&log_to_handle );

    sub get_function_names_from_package {
        no strict 'refs';
...
            grep !/^_|^[_A-Z]$/, # drop _underscored & ALL_CAPS
            keys %$symtab;       # get all symbols for package
    }

    {   package Test;
        sub one { }
...
    my @names = get_function_names_from_package("Test");
    print "@names", $/;
    # Test::three Test::one Test::two

    for (@names) {
        no strict 'refs';
        my $curried_name = $_ . "_c";
        *$curried_name = curry( \&curry, \&$_ );
    }

    use AutoCurry qw( foo );  # pass ':all' to curry all functions

    sub foo { print "@_$/"; }
    # currying variant, foo_c, is created automatically

package AutoCurry;

...
modify it under the same terms as Perl itself.

=cut