sub AUTOLOAD {
    my ( undef, $funcname ) = split '::', $AUTOLOAD;
    my $mapping = { foo => 'foo.bar',
                    bar => 'foobar',
                  };
    if ( exists $mapping->{$funcname} ) {
        # exec $mapping->{$funcname} 
    }
    else {
        die "Can't do $funcname, NFI how to!\n";
    }
}