sub my_method { my ($self,$data)=shift->self_obj; }