redefine_function(Foo::compute_result, sub { 
        is($_[0],"bar","spiffy_little_function passed right value to compute_result") return(42); }