¿Quién llamó a esta rutina?

Existe un módulo Carp que nos permite localizar quién llamo a la rutina actual. La función intrínseca caller devuelve una lista de valores indicando:

1. El paquete o package desde el cuál fue llamada la subrutina
2. El nombre del fichero conteniendo el código desde el que fue llamada
3. La línea en el fichero desde el cual fué llamada

Así la típica llamada es:

  ($package, $filename, $line) = caller;

Cuando caller se llama en un contexto escalar sólo devuelve el nombre del paquete.

Se le puede pasar un argumento (caller expr) en cuyo caso expr indica el número de contextos de pila que se retroceden a partir de este. En ese caso la información devuelta es aún mas rica:

($package, $filename, $line, $subr, $has_args, $wantarray) = caller($i);

Por ejemplo, el siguiente código nos da el nombre de la función actual:

  $this_function = (caller(0))[3];

ALIGN="BOTTOM" BORDER="0" SRC="ull.gif" ALT="ull">
Sig: Breve Introducción al Manejo Sup: Un Programa Simple Ant: Un Programa sin Variables 2-18 tex2html1642" HREF="node66.html">Breve Introducción al Manejo Sup: Un Programa Simple Ant: Un Programa sin Variables