Help for this page

Select Code to Download


  1. or download this
    use warnings;
    use strict;
    ...
    
    $func->("Hello");            # prints "Bar<<Foo:Hello>>"
    $func_other_run->("World");  # prints "Quz[[Foo:World]]"
    
  2. or download this
    {
        no warnings 'redefine';
        *Spin::Command::spin::func = $func_other_run;
    }