if (ref($lecturer) eq "LECTURER"){
   # You can do $lecutrerer->get_research();
}else{
  # This dude can't research ...
}