Antes que todo explicaré un poco lo que intento hacer. Supongamos la existencia de los siguientes ficheros:
caller.pl
Using perl Syntax Highlighting
- #!/usr/bin/perl
- use lib qw(.);
- use strict;
- use TEST;
- my $t = TEST->new();
- print $t->name;
- print "\n";
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
TEST.pm
Using perl Syntax Highlighting
- package TEST;
- use vars qw($errstr $logfile)
- BEGIN {
- $errstr = '';
- $logfile = '/tmp/test.log';
- }
- sub new {
- my $class = shift;
- my $name = shift or $class->_error("falta nombre");
- my $self = {};
- $self->{NAME} = $name;
- bless($self, $class);
- }
- sub name {
- my $self = shift;
- $self->{NAME};
- }
- sub _error {
- my $self = shift;
- my $error = shift;
- my $file = ( caller(1) )[1];
- my $line = ( caller(1) )[2];
- my $sub = ( caller(1) )[3];
- $errstr = "Error in $file at line $line ";
- $errstr .= "while calling $sub : \"$error\"";
- $self->_log();
- die "$error\n";
- }
- sub _log {
- my $self = shift;
- open my $F, '>>', $logfile or return;
- print {$F} $errstr."\n";
- close $F;
- }
- 1;
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Al ejecutar caller.pl se produce un error ya que no se ha especificado parámetro alguno a TEST->new(), el cuál debería recibir una string. En "/tmp/test.log" queda registrado algo como:
Error in caller.pl at line 6 while calling TEST::new : "falta nombre"
Hasta aquí todo bien, funciona a la perfección.
Supongamos ahora que quiero agregar otro módulo que interacciona como puente entre caller.pl y TEST.pm:
caller.pl
Using perl Syntax Highlighting
- #!/usr/bin/perl
- use lib qw(.);
- use strict;
- use PUENTE;
- my $t = PUENTE::new();
- print $t->name;
- print "\n";
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
PUENTE.pm
Using perl Syntax Highlighting
- package PUENTE;
- use lib qw(.);
- use TEST;
- sub new {
- return TEST->new(shift);
- }
- 1;
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
Al ejecutar caller.pl imprimirá en pantalla algo así:
Error in PUENTE.pm at line 7 while calling TEST::new : "falta nombre"
Aun así, mi intención también es de alguna manera saber en qué parte de caller.pl se produjo el error. Para ello he intentado saber la cantidad de llamadas que se han producido, pero aún no logro hacerlo. También he intentado averiguar la cantidad de elementos que posee caller(), pero se me ha hecho imposible.
¿Alguna idea?
¡Saludos!
