sub _curry_method {
    my $object = shift;
    my $method = shift;

    return sub { $object->method(@_) };
}