my $codref = \&$object->method;