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();
}