use warnings;
use strict;

use Devel::Trace::Subs qw(trace_dump);

use Mock::Sub;

$ENV{DTS_ENABLE} = 1;

my $mock = Mock::Sub->new;
my $blah_sub = $mock->mock('blah');

blah();
trace_dump();

sub blah {
    print "blah!\n";
}