Select Code to Download

package Obj;

...
my $x=Obj->new();
$x->howl('oh');
$x->can(mname)->('ah');

$x->can(mname)->($x,'ah');