package AutoTrace;
my %pkgMap;
sub AUTOLOAD {
    logCall( $AUTOLOAD, @_ );
    my $wantPkg= $AUTOLOAD =~ s/(.*):://;
    $AUTOLOAD= $pkgMap{$wantPkg}."::".$AUTOLOAD;
    goto &$AUTOLOAD;
}
$pkgMap{ChildModule}= "Module";
*ChildModule::AUTOLOAD= \&AUTOLOAD;