# HG changeset patch # User Oleksandr Gavenko # Date 1366902425 -10800 # Node ID db9fb38505e190242435bd67e005ade5a7dfcb06 # Parent 01eecd0d108e951be2883645ec0389506d50dd3a# Parent 1668fc8198e109f991d21836cfb158539a1d69bb merged diff -r 1668fc8198e1 -r db9fb38505e1 perl.rst --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/perl.rst Thu Apr 25 18:07:05 2013 +0300 @@ -0,0 +1,21 @@ +.. -*- coding: utf-8; -*- +.. include:: HEADER.rst + +======= + Perl. +======= +.. contents:: + +Print stack trace in Perl. +========================== +:: + + use Devel::StackTrace; + my $trace = Devel::StackTrace->new; + print $trace->as_string; # like carp + +Print execution trace in Perl. +============================== + +``Devel::Trace`` print out each line before it is executed (like ``sh -x``). +