sub curry_method {
    my ($obj, $meth) = @_;
    sub { $obj->$meth(@_) };
}