sub can {
    my $self = $object{shift(@_)};
    my ($method_name) = @_;
    my $method = $self->can($method_name);
    return unless $method;
    return sub { $method->(@_) };    
}