use TraceCode2;
use TraceCode qw(:DEFAULT);

my $zzz:traceVar;
sub xxx:traceCode()
{
    print "xxx\n";
}

xxx();
yyy();