package Curry::Dots;
use Filter::Simple;

my $braces = qr{
		   \(
		   (?:
			  (?> [^\(\)]+ )    # Non-parens without backtracking
			|
			  (??{ $braces })     # Group with matching parens
		   )*
		   \)
		}x;

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

FILTER_ONLY
	code => sub {
		return unless /,\s*\.\.\.\s*\)/;
		s/\&\$(\b\w+)\s*\(([^\(\)]*(?:$braces[^\(\)]*)*)\s*,\s*\.\.\.\s*\)/Curry::Dots::curry (\$$1, $2)/g;
		s/(\$\b\w+)\s*->(\w+)\s*\(([^\(\)]*(?:$braces[^\(\)]*)*)\s*,\s*\.\.\.\s*\)/Curry::Dots::curry ($1->can('$2'), $1, $3)/g;
		s/(\b\w+)\s*->(\w+)\s*\(([^\(\)]*(?:$braces[^\(\)]*)*)\s*,\s*\.\.\.\s*\)/Curry::Dots::curry ($1->can('$2'), '$1', $3)/g;
		s/\$(\b\w+)\s*->\s*\(([^\(\)]*(?:$braces[^\(\)]*)*)\s*,\s*\.\.\.\s*\)/Curry::Dots::curry (\$$1, $2)/g;
		s/(\b\w+)\s*\(([^\(\)]*(?:$braces[^\(\)]*)*)\s*,\s*\.\.\.\s*\)/Curry::Dots::curry (\\\&$1, $2)/g;
	};

1;