for my $name (qw/ PUT _buildAccessors _buildUseragent getUseragent setUseragent request _prepareURL getHost getTimeout getCert getCa getPkcs12 getFollow getContentFile responseCode responseHeader responseContent setHost / ) { no strict 'refs'; no warnings 'redefine'; #my $orig = \&{"REST::Cli_orig::$name"}; #my $before= \&{"REST::Client::before_$name"}; #my $after= \&{"REST::Client::after_$name"}; #my $responseContent = \&{"REST::Cli_orig::responseContent"};

*{"REST::Client::$name"} = sub {}; 
}