Posted By

alfirth on 05/21/11


Tagged

stack trace caller


Versions (?)

caller trace


 / Published in: Perl
 

  1. push @callers, $_ while ( defined ( $_ = (caller($i++))[3] ) );
  2. my $trace = join(' <== ', @callers);

Report this snippet  

You need to login to post a comment.