#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 3;

{
    package Test;

    use Attribute::Handlers;

    sub curry : ATTR(CODE) {
        my ($package, $symbol, $referent, $attr, $data, $phase) = @_;
        my @args = split(//, $data);
        my $num_args = scalar(@args);
        my $func = *{$symbol}{NAME};
        no strict 'refs';
        no warnings 'redefine';
        *{"${package}::${func}"} = sub {
                if (scalar(@_) == $num_args) {
                    goto $referent;
                }
                else {
                    my @args = @_;
                    return sub {
                        $referent->(@args, @_);
                    };
                }
            };
    }

    sub foo : curry('$$$') {
        return @_;
    }
    
}
              
is_deeply(
    [ Test::foo(1, 2, 3) ],
    [ 1, 2, 3 ],
    '... got the right return value');   

my $curried_foo = Test::foo(1, 2);              
is(ref($curried_foo), 'CODE', '... this is our curried sub');

is_deeply(
    [ $curried_foo->(3) ],
    [ 1, 2, 3 ],
    '... got the right return value now');

1;

##</code><code>##

my $curried_foo = foo(1);
my $even_more_curried_foo = $curried_foo->(2);
print $even_more_curried_foo->(3); # now we execute the function