Select Code to Download

use warnings;
use strict;
...
    my $str = shift;
    print "$str\n";
}

goodbye, world!

perl -wMstrict -MDevel::Trace::Subs=install_trace -e 'install_trace(fi
+le => "trace.pl");'

use Devel::Trace::Subs qw(trace trace_dump); # injected by Devel::Trac
+e::Subs
use warnings;
...
    my $str = shift;
    print "$str\n";
}

$ENV{DTS_ENABLE} = 1; # add this line before the first sub call

trace_dump(); # add this line after the last sub call

goodbye, world!

...
    file:    ./trace.pl
    line:    27
    package: main

perl -wMstrict -MDevel::Trace::Subs=remove_trace -e 'remove_trace(file
+ => "trace.pl");'

sudo perl -MDevel::Trace::Subs=install_trace -e 'install_trace(file=>"
+Data::Dump");'

perl -MData::Dump -MDevel::Trace::Subs=trace_dump -e '$ENV{DTS_ENABLE}
+=1; dd {a => 1}; trace_dump'

...
    file:    /usr/lib/perl5/site_perl/5.22.0/Data/Dump.pm
    line:    65
    package: Data::Dump

sudo perl -MDevel::Trace::Subs=remove_trace -e 'remove_trace(file=>"Da
+ta::Dump");'