sub method bark_at ($some_other_dog, $message)
{
  if(DEBUG)
   {
      die "Not valid class" unless is_obj_instance("Dog", $some_other_dog);
   }
}