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

##</code><code>##

use warnings;
use strict;

use Data::Dump qw(dd);

three();

sub one {
    return {a => 1, b => 2};
}
sub two {
    return one();
}
sub three {
    dd two();
}

##</code><code>##

{ a => 1, b => 2 }

##</code><code>##

use warnings;
use strict;

use Data::Dump qw(dd);
use Devel::Trace::Subs qw(trace_dump);

$ENV{DTS_ENABLE} = 1;

three();

trace_dump();

sub one {
    return {a => 1, b => 2};
}
sub two {
    return one();
}
sub three {
    dd two();
}

##</code><code>##

{ a => 1, b => 2 }

Code flow:

    1: Data::Dump::dd
    2: Data::Dump::dump
    3: Data::Dump::_dump
    4: Data::Dump::tied_str
    5: Data::Dump::_dump
    6: Data::Dump::_dump
    7: Data::Dump::format_list

Stack trace:

    in:      Data::Dump::dd
    sub:     main::three
    file:    script.pl
    line:    20
    package: main

    in:      Data::Dump::dump
    sub:     Data::Dump::dd
    file:    /usr/local/share/perl/5.22.1/Data/Dump.pm
    line:    84
    package: Data::Dump

    in:      Data::Dump::_dump
    sub:     Data::Dump::dump
    file:    /usr/local/share/perl/5.22.1/Data/Dump.pm
    line:    36
    package: Data::Dump

    in:      Data::Dump::tied_str
    sub:     Data::Dump::_dump
    file:    /usr/local/share/perl/5.22.1/Data/Dump.pm
    line:    292
    package: Data::Dump

    in:      Data::Dump::_dump
    sub:     Data::Dump::_dump
    file:    /usr/local/share/perl/5.22.1/Data/Dump.pm
    line:    331
    package: Data::Dump

    in:      Data::Dump::_dump
    sub:     Data::Dump::_dump
    file:    /usr/local/share/perl/5.22.1/Data/Dump.pm
    line:    331
    package: Data::Dump

    in:      Data::Dump::format_list
    sub:     Data::Dump::dump
    file:    /usr/local/share/perl/5.22.1/Data/Dump.pm
    line:    65
    package: Data::Dump

##</code><code>##

perl -MDevel::Trace::Subs=remove_trace -e 'remove_trace(file => "Data::Dump")'