sub curriable_add {
    my ($first, $second) = @_;
    croak "first argument is undefined" if !defined $first;
    return $first + $second if defined $second;
    return sub { $first + shift };
}
[download]

PerlMonks lovingly hand-crafted by Tim Vroom.
PerlMonks went on a couple dates, and then decided to shack up with The Perl Foundation.
Beefy Boxes and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.