1 .. -*- coding: utf-8; -*-

     2 .. include:: HEADER.rst

     3 

     4 =======

     5  Perl.

     6 =======

     7 .. contents::

     8 

     9 Print stack trace in Perl.

    10 ==========================

    11 ::

    12 

    13   use Devel::StackTrace;

    14   my $trace = Devel::StackTrace->new;

    15   print $trace->as_string; # like carp

    16 

    17 Print execution trace in Perl.

    18 ==============================

    19 

    20 ``Devel::Trace`` print out each line before it is executed (like ``sh -x``).

    21