Select Code to Download

eval {
        no strict "refs";
...
        ###$ref = $foo->can('f_preferred') ? \&{$foo . "::f_preferred"
+} : undef;
        $ref = $foo->can('f_preferred');
};