use strict;
use warnings;
use 5.010;

sub f { 'g' }
sub g { say 'in g()' };

(bless {})->can(f())->();