Currying with Moose.

curry.pl

#!perl

use strict;
use warnings;
use 5.010;
use Carp;

package Supercali;

use Moose;

sub fragilisticexpialidocious {

    my $self = shift;
    my %params = @_;
    say sprintf('%s => %s', $_, $params{$_}) foreach keys %params;

}

package Curried;

use Moose;

has 'supercali' => (isa => 'Supercali',
                    default => sub { Supercali->new },
                    handles => {
                        curried_foo => [ 'fragilisticexpialidocious',
                                         foo => 'bar',
                                         baz => 'quux' ],
                        curried_watterson => [ 'fragilisticexpialidocious',
                                               boy => 'calvin',
                                               tiger => 'hobbes' ] });

package main;

my $curry = Curried->new;

say '### foo:';
$curry->curried_foo;
say '### watterson:';
$curry->curried_watterson;

say '### extra values';
$curry->curried_foo(ham => 'eggs');

say '### overriding the defaults provided by the currying';
$curry->curried_watterson(boy => 'moe');