# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1344400353 -10800
# Node ID 446235725c2bb487fcb5e00c7492fb654abbeec8
# Parent  4e2c6db95199c6981960d47a20bd40665ed2c18b
Print stack trace in Perl.

diff -r 4e2c6db95199 -r 446235725c2b perl.rst
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/perl.rst	Wed Aug 08 07:32:33 2012 +0300
@@ -0,0 +1,15 @@
+.. -*- 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