Select Code to Download

use warnings;
use strict;
...

$func->("Hello");            # prints "Bar<<Foo:Hello>>"
$func_other_run->("World");  # prints "Quz[[Foo:World]]"

{
    no warnings 'redefine';
    *Spin::Command::spin::func = $func_other_run;
}