Trace ;line by line execution of Perl6 program or module using Perl6::Tracer module
Other
Switch branches/tags
Nothing to show
Latest commit 6b324fb Apr 30, 2017 @jaffa4 committed on GitHub Merge pull request #9 from zoffixznet/patch-1
Use modern META filename
Permalink
Failed to load latest commit information.
bin fixed usage info Aug 4, 2015
lib/Rakudo/Perl6 adds ; when missing for tracing, naming improvement Aug 3, 2015
t do not note multi sub declarations Aug 3, 2015
LICENSE Initial commit Dec 1, 2013
META6.json
README.md Update README.md Jul 20, 2015

README.md

Rakudo::Perl6::Tracer

Trace Perl6 code.

Known limitations: if there is a BEGIN, there will not be any formatting. Also, if classes are imported from nqp.

Usage

use Rakudo::Perl6::Tracer;

my $f = Rakudo::Perl6::Tracer.new(); # create a new object
say $f.trace({},$content); #  trace the content

The returned program code will contain tracing statements beside the original code.

If you run the traced code, you will see what lines were executed.

Command line access

$ perl6 trace.p6 -h

$ perl6 trace.p6  <Dagrammar.p6 >traced.p6
$ perl6 trace.p6 -sl  <Dagrammar.p6 >traced.p6

Example

Example of traced code, note statements are inserted by trace.p6:

sub dump_node($node)
{
 note "line  19";say "matched";
 note "line  20";if ($node<regliteral>) {
 note "line  21";say "reg $node"~$node<regliteral>;
 note "line  22";}
note "line  23";}

OR example trace log with -sl

line  1 my @Depindex;
line  2 my @Depthis;
line  3 my @Depon;
line  4 my @Depend;
line  5 my @Bot;
line  7 my $debug = False;
line  215 my %h;
line  216 my %g;
line  217 %h<itemid> = 1;
line  218 %g<itemid> = 2;
line  219 %h<name>   = '1';
line  220 %g<name>   = '2';
line  222 my %j  = ( "itemid", 3, "name", 3 );
line  223 my %j4 = ( "itemid", 4, "name", 4 );