Ada Package Names and Methods

The question is out of curiosity here: is it possible to find the name of the method you are in? Something like this when I Magicshould output "foo.bar.foobar"without resorting to a string literal.

with ada.text_io;
package body foo.bar is 

   function foobar return boolean is 
   begin
     ada.text_io.put_line ("I am in :" & Magic);
     return true;
   end foobar;

end foo.bar;

I would suggest that the information is somewhere, as it is similarly displayed for stack traces, exceptions and profiling tools, etc., but I can not find it documented anywhere!