# HG changeset patch # User Oleksandr Gavenko # Date 1366551092 -10800 # Node ID 64a4e431b7623f2de860d76d977899df59f64cd4 # Parent f3be7476145d45aa498d500b9171f1a73764ac8d# Parent 01eecd0d108e951be2883645ec0389506d50dd3a merged diff -r f3be7476145d -r 64a4e431b762 perl.rst --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/perl.rst Sun Apr 21 16:31:32 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``). +