I believe that with Class::Classless, you can locally override the specific hash value you're interested in:

  local $test_object->{method} = 
      sub { print "got:".$_[0]->{_proto_}->method() };
[download]