Select Code to Download

sub spiffy_little_function {
    my ($x,$y) = @_;
...
    $t = $z * 0.10;
    return($t)
}

# test spiffy_little_function with options 'foo' and 'bar'
<P>
...
is($result,4.2,"spiffy_little_function:foo bar test");
<P>
restore_all_functions();

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