#!/usr/bin/perl

    package MyObj;

    use warnings;
    use strict;

    use AutoCurry ':all';

    sub new {
        my $self = shift;
        my $name = shift;
        bless [$name, { @_ }], $self;
    }

    sub speak_keyvals {
        my ($name, $hash) = @{shift()};
        print "$name sez: @{[ @$hash{@_} ]}", $/;
    }

    my $foo = new MyObj( "foo", a => "alpha", b => "beta" );
    $foo->speak_keyvals( "a" );
    # foo sez: alpha


    # for the next line, recall that $o->f(...) === f($o, ...)

    my $foo_speaker = $foo->speak_keyvals_c();  # binds to $foo

    $foo_speaker->("b");
    # foo sez: beta

    $foo_speaker->(@$_) for ["a"], ["b"], ["a", "b"];
    # foo sez: alpha
    # foo sez: beta
    # foo sez: alpha beta